Son satır hatası

[irfancantr]

Herkese iyi günler,

ekli dosyamda son satır işleminde bir problem gözüküyor. Birkaç farklı yol denememe rağmen bu hatadan kurtulamadım, yardımcı olursanız sevinirim.

Sheets("Veri").Select
[COLOR="Red"][B]SATIR[/B][/COLOR] = [b65536].End(3).Row + 1
Cells(SATIR, "A") = SATIR - 2

 

[Ömer]

Merhaba,

Değişken kontrolü koymuşsunuz fakat tanımlaması yapmamışsınız.

Dim SATIR As Long

Ekleyin.

.

 

[irfancantr]

Ömer hocam çok teşekkür ederim , dosyam ile alakalı bir soru sorabilir miyim?

Label1 - Label59 arası B2 - BH2 hücre başlıklarını alıyor.

Tek tek

UserForm_Initialize olayına

Label1 = [B2]
Label2 = [C2]
Label3 = [D2]
Label4 = [E2]
.....
Label59 = [BH2]

tanıtmak durumundayım. Geçen gün size bir soru sormuştum
sorduğum konu başlığı

daha kısa yolu var demiştiniz, bu yüzden soruyorum hocam.

 

[Ömer]

UserForm_Initialize olayına

Label1 = [B2]
Label2 = [C2]
Label3 = [D2]
Label4 = [E2]
.....
Label59 = [BH2]

    Dim i As Byte
    
    For i = 1 To 59
        Controls("Label" & i).Caption = Cells(2, i + 1)
    Next i

Bu şekilde deneyin.

.

 

[irfancantr]

Tekrar teşekkürler Ömer hocam.