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
727

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 Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı:
(11/05/2021 23:45)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: 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