Döngü içinde ilk boş satırı seçme Hk.

[LgLabs]

İyi günler kolay gelsin,

Userform üzerinde comboBox dan sectigim bir kritere göre döngü oluşturduğum bir aralikta ilk boş satırı seçip formda doldurduğum diğer bilgilerin bu seçilen satıra yazmak istiyorum

Örneğin;
1 aylık kararları seçtiğimde veri girişi yaptığım database sayfasında ki C2:C251 aralığında ilk boş satırı bulup ona userformdaki diğer verileri kaydetmek istiyorum

2 aylık kararları sectigimde de C252:C451 arasında ki ilk boş satırı seçsin gibi.

Yardımcı olabilirseniz sevinirim

 

[alicimri]

Döngüye gerek yok. Deneyin,

Cells(Range("A1:A251").CurrentRegion.Rows.Count + 1, 1).Select

Cells(Range("A252:A451").CurrentRegion.Rows.Count + 249, 1).Select

Not 2. koddaki 249 sayısı spesifik olarak örneğinizdeki aralığa denek düşen sayıdır.

 

[alicimri]

Döngü için kod

Sub b()
For i = 1 To 251
If Cells(i, 2) = "" Then Exit For
son = Cells(i + 1, 2).Row
Next
If son = 252 Then
MsgBox "Boş satır yok"
Else
Cells(son, 2).Value='Textbox1.Value
End If
End Sub

Sub b()
For i = 252 To 451
If Cells(i, 2) = "" Then Exit For
son = Cells(i + 1, 2).Row
Next
If son = 452 Then
MsgBox "Boş satır yok"
Else
Cells(son, 2.Value='Textbox1.Value
End If
End Sub

 

[alicimri]

Dikkat etmemişim, yukarıdaki örnekler A sütununu test ediyor C sütununa uyarlayın.

 

[LgLabs]

i=cells(Range("b1:b251").Currentregion.Rows.Count +1, 1).Select
set bul= Range("b1:b251").Find("", , ,xlwhole)
if Not bul is Noting then. select

Bu şekilde bir kod oluşturdum ama hata veriyor, ben bu sayfada ki B1 ile b251 arasında ilk boş sütünü bulsun ve onun bulunduğu satıra userform ile yazdırabileyim istiyorum sonrasida da if yapısı ile seçtiğim alana göre ilk boş satırı bulmasını istiyorum yardımcı olabilirseniz sevinirim şimdiden teşekkürler

 

[alicimri]

Benim yazdığım kodlarda Select leri Value= TextBox1 gibi değiştirin.

 

[alicimri]

Yukarıdaki #3 mesajdaki kodları B sütunu için uyarladım, Userformdaki ilgili Kontrolü yazın.
Olmazsa bir dosya paylaşım sitesinden örnek dosya ekleyin.

 

[LgLabs]

Yardımcı olduğunuz için teşekkür ederim