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

1 2 3

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

Hatayı veri yokken ilk kayıt yaparken veriyor. Bu durumu aşmak için ne yapmak lazım.

(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.

(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.

Yada on errror goto hata deyip end sub un üstüne hata: yazmanız yeterli

@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.

(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

1 2 3