İlk boş satırı bulma

[hsayar]

Arkadaşlar yapmaya çalıştığım bir tablo var bana sayfa 2 nin B sütununda ilk boş satırı nasıl tespit ederim sorusunun cevabı ve oraya sayfa1 deki a5 sütunun yaz komutu lazım
Aslında daha karmaşık ama herhalde ben aşarım karışık sorunca kimse cevaplamıyor adım adım hatırladıkça kendim yapacam (sözlerim sitem değildir. sadece kendime kızıyorum zamanında yedek almadığım için)
Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[sayfa2!b1:].End(xlDown).Offset(1, 0) = [sayfa1!a5]

 

[hsayar]

Karmaşık hali; (kodlar muhtemelen yanlış yazılmıştır.... doğrultarak yazarsanız sevinirim

Private Sub aktar
'bu makro A2 den itibaren x olan satırları rapor sayfasının ilk boş satırına
' KOPYALAMALIDIR 
Dim dsn Data satır no
Dim rsn Rapor satır no
       For dsn=2 to 150 
             if Cells(dsn,1)= "x" Then
                  For rsn = 11 to 45 
                      if Cells(rsn,2) <> "" Then
                           Cells(rsn,1)= Cells(dsn,1)
                           Cells(rsn,3)= Cells(dsn,2)
                           Cells(rsn,6)= Cells(dsn,3)
                       End if 
                 Next
             End if
          Next
End Sub

 

[hsayar]

Aşağıdaki gibi deneyin.

[sayfa2!b1:].End(xlDown).Offset(1, 0) = [sayfa1!a5]

uyarlamaya çalışacağım teşekkür ederim

 

[Recep İpek]

Alternatif olarak,

Sub Button1_Click()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
For Each alan In s2.Range("b2", s2.Range("b" & s2.[b65536].End(xlUp).Row))
If alan.Value = Empty Then: alan.Value = s1.[a5]: Exit For
Next
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[hsayar]

Aşağıdaki gibi deneyin.

[sayfa2!b1:].End(xlDown).Offset(1, 0) = [sayfa1!a5]

for a5 yerine for nextten gelen a6, a7, gibi değer nasıl olacak ?

 

[Ferhat Pazarçevirdi]

VARSAYIM : i'nin sayaç değeri olduğu kabulüyle;

for [COLOR=red][B]i[/B][/COLOR]=5 to 10
    sheets("Sayfa2").Range("B1").End(xlDown).Offset(1, 0) = sheets("Sayfa1").Range("A" & [B][COLOR=red]i[/COLOR][/B])
next[COLOR=red][B] i[/B][/COLOR]

 

[hsayar]

http://www.excel.web.tr/showthread.php?p=206742#post206742
bu konuda analmını yitirdiği için