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
1294

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

#7
Range("a" & Rows.Count).End(3).Offset(1, 0).Select
Cevapla
#8
Hatanın sebebini Gifte anlattım görsel olarak.

[Resim: do.php?img=11013]
https://resim.accesstr.net/do.php?img=11013
Cevapla
#9
VBA Dersleri izliyorum kodları anlatıyorlar ama kodun hangi durumlarda neden hata vereceğini bazen atlıyorlar. Bu konu anlatılırken verilen örnekte 3,5 satır bilgi varken konu anlatılmış ama satırda bilgi yokken hata vereceği ve sebebi de anlatılmamış bende direk o hatayı neden verdiğini sorguluyorum. Sonuçta ders eksik anlatılmış ben de sebebini anlamamış oluyorum.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#10
(12/05/2021, 10:14)Oğuz Türkyılmaz yazdı: VBA Dersleri izliyorum kodları anlatıyorlar ama kodun hangi durumlarda neden hata vereceğini bazen atlıyorlar. Bu konu anlatılırken verilen örnekte 3,5 satır bilgi varken konu anlatılmış ama satırda bilgi yokken hata vereceği ve sebebi de anlatılmamış bende direk o hatayı neden verdiğini sorguluyorum. Sonuçta ders eksik anlatılmış ben de sebebini anlamamış oluyorum.
Giftekine göre anladınız değil mi?
Cevapla
#11
Sonunda anladım Img-grin
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#12
@feraz Hocam alttaki kodunuzda son doluyu nasıl yakaladığını anlamamıştım. Bu kod yapısındaki işleyiş ile elde edilen sonucu


'Alttaki kod eger A sütunu bossa son satir olarak 2 verir, 1 tane veri olsa dahi son satiri son dolunun bir alt satir no verir-----------------

Kod:
If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 0 Then
                       SonSatir = .Range("A" & Rows.Count).End(3).Row
                       ElseIf WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) > 0 Then
                       SonSatir = .Range("A" & Rows.Count).End(3).Row + 1
                 End If


Kod:
Bu aşağıdaki kod yapısı ile bir çözüm üreterek elde etsek aralarında ne gibi bir fark olur. BU kodda aşağıdan yukarı ilk dolunun altına gidiyor. Bu bir yapı ve sonunda bunu anladım ama sizin koddaki end(3) bölümünün işleyişini çözemedim.

Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Select

Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da