Son satır

[emre311]

merhaba;
yazdığım kodda sayfa 1 den sayfa 6 ya şartlı veri aktarıyorum. sayfa 6 da veriler 24. satırda başlıyor. veriler geldikten sonra sayfa 6 da 24 den başlamak üzere son satıra kadar sayfa 1 in 3. satırındaki formatına biçim boyacısı gibi yapmasını istiyorum fakat ilk satırda kalıyor. acil yardım ederseniz sevinirim teşekkürler şimdiden. kodum


Sub Düğme27_Tıklat()
Dim sat As Integer
Dim s, ss As Integer
Dim bul As Object
Sayfa6.[a24:n1000].Clear
s = 24
ss = 24
son = Sayfa1.Cells(Rows.Count, "g").End(xlUp).Row
son2 = Sayfa6.Cells(Rows.Count, "a").End(xlUp).Row
Set bul = Sayfa1.Range("g3:g" & son).Find(Sayfa6.[d19], , xlValues, xlWhole)
If Not bul Is Nothing Then
adres = bul.Address
Do
If Sayfa1.Cells(bul.Row, "j") = Sayfa6.[d21] And Sayfa1.Cells(bul.Row, "a") = Sayfa6.[d17] Then
Sayfa6.Cells(s, "a") = Format(Sayfa1.Cells(bul.Row, "a"), "dd.mm.yyyy")
Sayfa6.Cells(s, "b") = Sayfa1.Cells(bul.Row, "b")
Sayfa6.Cells(s, "c") = Sayfa1.Cells(bul.Row, "c")
Sayfa6.Cells(s, "d") = Sayfa1.Cells(bul.Row, "d")
Sayfa6.Cells(s, "e") = Sayfa1.Cells(bul.Row, "e")
Sayfa6.Cells(s, "f") = Sayfa1.Cells(bul.Row, "f")
Sayfa6.Cells(s, "g") = Sayfa1.Cells(bul.Row, "g")
Sayfa6.Cells(s, "h") = Sayfa1.Cells(bul.Row, "h")
Sayfa6.Cells(s, "ı") = Sayfa1.Cells(bul.Row, "ı")
Sayfa6.Cells(s, "j") = Sayfa1.Cells(bul.Row, "j")
Sayfa6.Cells(s, "k") = Sayfa1.Cells(bul.Row, "k")
Sayfa6.Cells(s, "l") = Sayfa1.Cells(bul.Row, "l")
Sayfa6.Cells(s, "m") = Sayfa1.Cells(bul.Row, "m")
Sayfa6.Cells(s, "n") = Sayfa1.Cells(bul.Row, "n")
s = s + 1
End If
Set bul = Sayfa1.Range("g3:g" & son).FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> adres
End If
Sheets(Sayfa1).Select
Range("A3:N3").Select
Selection.Copy
Sheets(Sayfa6).Select
Range("A24:A" & son2).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[asi_kral]

Merhaba
Dosya ekler misiniz_?
İçerisinde açıklama yapınız_?

 

[emre311]

dosya ektedir.

 

[emre311]

hata vermiş görmemişim pardon şimdi ektedir.

 

[emre311]

kusura bakmayın son hali ektedir

 

[emre311]

yardım edecek kimse yokmu