AccessTr.neT

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.

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.

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

@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

Sarıya boyalı kodu kullanmamanız gerektiğni ve bazı durumlarda hata verebilir yazmıştım yinede ısrar edip kullanmışsınız