Satırdaki ilk boş hücreyi seçme

[ahmzlm]

Merhaba,

C1 hücresine yazdığım veriyi, A sütununa, her seferinde ilk boş hücreye kaydedebileceğim makro nedir acaba?


Tşk.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Kaydet()
    
    Dim son As Long
    
    son = Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    If Range("A1") = "" Then son = 1
    
    Cells(son, "A") = Range("C1")
    
End Sub

.

 

[ahmzlm]

Ömer Bey çok teşekkürler.

Peki veriyi "Veri" İsimli sayfanın A sütununa kaydetmek istersem. nerede değişiklik yapmam gerekir?

 

[Ömer]

Önce Veri ismiyle sayfayı tanımlanır, daha sonra ilgili hücrelerin önüne tanımlamadaki isim eklenir.

Sub Kaydet()
    
    Dim son As Long, Sv As Worksheet
    
    [COLOR="Red"]Set Sv = Sheets("Veri")[/COLOR]
    
    son = [COLOR="red"]Sv.[/COLOR]Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    If [COLOR="red"]Sv.[/COLOR]Range("A1") = "" Then son = 1
    
    [COLOR="red"]Sv.[/COLOR]Cells(son, "A") = Range("C1")
    
End Sub

.

 

[ahmzlm]

Son sorum, şunu rica edeceğim; makro üzerinde denedim ama yapamadım.

Aktif sayfamda A1:G1'deki tek satır, 7 sütunluk datayı;
"Veri" sayfasındaki ilk boş A:G aralığına kaydedeyim.

 

[Ömer]

Değer alan satır yerine aşağıda kini kullanın.

Range("A1:G1").Copy Cells(son, "A")

.