Belli aralıktalardaki boş hücreye veri aktarımı

[ynmcan]

Merhaba arkadaşlar;
Aşağıdaki kod ile "A" sütununda bulunan en son boş hücreye veri aktarılıyor.
Benim yapmak istediğim ise belli bir aralıktaki en son boş hücreye veri aktarmak. ( Mesela "A12:A27" aralığındaki en son boş hücreye )

Private Sub CommandButton1_Click()
x = Sheets("Data").Range("A65536").End(xlUp).Row + 1
Sheets("Data").Range("A" & x).Value = TextBox1.Value
End Sub

Örnek dosyam ekte.

 

[mesudiye_052]

Selam

Private Sub CommandButton1_Click()

[a11] = "."
x = Sheets("Data").Range("A28").End(xlUp).Row + 1
Sheets("Data").Range("A" & x).Value = TextBox1.Value
End Sub

 

[ynmcan]

Selam

Private Sub CommandButton1_Click()

[a11] = "."
x = Sheets("Data").Range("A28").End(xlUp).Row + 1
Sheets("Data").Range("A" & x).Value = TextBox1.Value
End Sub

Sayın mesudiye_052 ;
Öncelikle ilginiz için teşekkür ederim. Ancak asıl dosyamda "A12" hücresinin üstündeki hücrelerde ve "A28" hücresinin altındaki hücrelerde veriler bulunmakta. Bu yüzden yolladığınız kod benim çalışmama uygun değil."A12:A28" aralığana veri aktarırken bu aralığın atındaki ve üstündeki verilere zarar vermemesi lazım.

 

[ynmcan]

Konunun anlaşılması için örnek dosyamı değiştirdim. Dosyadaki TextBox' u ComboBox' a Hücre aralığınıda "B15:B29" olarak değiştirdim. yeni örnek dosyam ekte.

 

[Ömer]

Merhaba,

İlk eklediğiniz kodu aşağıdaki gibi yazabilirsiniz. Diğerlerini aynı mantıkla siz yaparsınız.

Private Sub CommandButton1_Click()
Set S1 = Sheets("Data")
x = S1.Range("A27").End(xlUp).Row + 1
    If S1.Range("A12") = "" Then
        S1.Range("A12").Value = TextBox1.Value
    Else
        S1.Range("A" & x).Value = TextBox1.Value
    End If
End Sub

.

 

[ynmcan]

Merhaba,

İlk eklediğiniz kodu aşağıdaki gibi yazabilirsiniz. Diğerlerini aynı mantıkla siz yaparsınız.

Private Sub CommandButton1_Click()
Set S1 = Sheets("Data")
x = S1.Range("A27").End(xlUp).Row + 1
    If S1.Range("A12") = "" Then
        S1.Range("A12").Value = TextBox1.Value
    Else
        S1.Range("A" & x).Value = TextBox1.Value
    End If
End Sub

.

Sn. Ömer; Bu kod işimi görür. Diğer düzenlemeleri ben yaparım. Katkılarınızdan dolayı teşekkür ederim.

 

[ynmcan]

Merhaba,

İlk eklediğiniz kodu aşağıdaki gibi yazabilirsiniz. Diğerlerini aynı mantıkla siz yaparsınız.

Private Sub CommandButton1_Click()
Set S1 = Sheets("Data")
x = S1.Range("A27").End(xlUp).Row + 1
    If S1.Range("A12") = "" Then
        S1.Range("A12").Value = TextBox1.Value
    Else
        S1.Range("A" & x).Value = TextBox1.Value
    End If
End Sub

.

yoladığınız kodu diğer örnek dosyama uyarladım. Güzel çalışıyor. Ancak bu kodu birçok yerde kullanacağımdan Aşağıda görüldüğü gibi "aktar" isminde makro olarak bir modüle yerleştirdim.

Sub aktar()
Set S1 = Sheets("Data")
x = S1.Range("B29").End(xlUp).Row + 1
    If S1.Range("B17") = "" Then
        S1.Range("B17").Value = ComboBox1.Value
    Else
        S1.Range("B" & x).Value = ComboBox1.Value
    End If
End Sub

CommandButton1_Click() olayınada ağşağıda görüldüğü gibi makro adını yazdım. ancak hata verdi. Bunun nedenini bulamadım.

Private Sub CommandButton1_Click()
aktar
End Sub

örnek dosyam ekte.

 

[Ömer]

S1.ComboBox1.Value

olarak yazmanız gerekir.

.

 

[ynmcan]

S1.ComboBox1.Value

olarak yazmanız gerekir.

.

Teşekkürler