Skip to main content

AccessTr.neT


Excel Vba Macro İle Hücrelere Kayıt Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
17
1293

Excel Vba Macro İle Hücrelere Kayıt Hakkında

Çözüldü #1
Merhaba
Excel sayfasındaki 3 hücreye kayıt yapmak için yazdığım makro ilk seferinde çalışmasına rağmen 2.defasında hata verdi. Kod da bir tutarsızlık yok ama neden bu hatayı veriyor. Yanlış olan nedir.

Kod:
Option Explicit

Sub inputbox1()

Dim isim As String
Dim dogumTarihi As Date
Dim kilo As Integer

isim = InputBox("Adınızı Giriniz...")
dogumTarihi = InputBox("Doğum tarihini giriniz")
kilo = InputBox("Kilonuzu giriniz")

Range("a1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = isim
ActiveCell.Offset(0, 1).Value = dogumTarihi
ActiveCell.Offset(0, 2).Value = kilo



End Sub

[Resim: do.php?img=11007]

[Resim: do.php?img=11008]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
Hatayı veri yokken ilk kayıt yaparken veriyor. Bu durumu aşmak için ne yapmak lazım.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#3
(11/05/2021, 23:45)Oğuz Türkyılmaz yazdı: Hatayı veri yokken ilk kayıt yaparken veriyor. Bu durumu aşmak için ne yapmak lazım.

ilk kaydı manuel elle yaptıktan sonra kod 2.kaydı normal yapıyor.

[Resim: do.php?img=11009]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
(11/05/2021, 23:53)Oğuz Türkyılmaz yazdı:
(11/05/2021, 23:45)Oğuz Türkyılmaz yazdı: Hatayı veri yokken ilk kayıt yaparken veriyor. Bu durumu aşmak için ne yapmak lazım.

ilk kaydı manuel elle yaptıktan sonra kod 2.kaydı normal yapıyor.

[Resim: do.php?img=11009]
Koda eğer veri yoksa gibi kod ekleyebilirsiniz,önceki konularınızda countA ile bir sürü kod yazılmıştı onları inceleyip uygulayın.
Yada on errror goto hata deyip end sub un üstüne hata: yazmanız yeterli
Cevapla
#5
@feraz hocam neden hata verdiğini anlamaya çalışıyorum o yüzden sordum cevabı bulurum önceki kodlarda mutlaka ama bu ezbere kaçmak oluyor çünkü o kodlarıda sizler yazıyorsunuz işim halloluyor ama sık sık dediğiniz gibi bu öğrenme olmuyor. Bu kod sayfada A1 sütunundan itibaren aşağı doğru ilk boş satırın ilk A hücresine ve sonrada aynı satırın 2. ve 3. sütunlarına yani B ve C ye yazıyor. 1 nolu satırda sütun başlık isimleri var zaten. Mantık olarak ilk kaydı 2.satıra yapması gerekirken neden hata veriyor da 2.satırda veri varsa hata vermeden kaydediyor. Nedenini anlamaya çalışıyorum.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
(11/05/2021, 23:30)Oğuz Türkyılmaz yazdı: Merhaba
Excel sayfasındaki 3 hücreye kayıt yapmak için yazdığım makro ilk seferinde çalışmasına rağmen 2.defasında hata verdi. Kod da bir tutarsızlık yok ama neden bu hatayı veriyor. Yanlış olan nedir.

Kod:
Option Explicit

Sub inputbox1()

Dim isim As String
Dim dogumTarihi As Date
Dim kilo As Integer

isim = InputBox("Adınızı Giriniz...")
dogumTarihi = InputBox("Doğum tarihini giriniz")
kilo = InputBox("Kilonuzu giriniz")

Range("a1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = isim
ActiveCell.Offset(0, 1).Value = dogumTarihi
ActiveCell.Offset(0, 2).Value = kilo



End Sub

[Resim: do.php?img=11007]

[Resim: do.php?img=11008]
Sarıya boyalı kodu kullanmamanız gerektiğni ve bazı durumlarda hata verebilir yazmıştım yinede ısrar edip kullanmışsınız Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da