Makro istek

[gercekgun]

Ekteki excel dosyasında makro yardımına ihtiyacım var.. makronun yapmasını istediğim:
17. satırda 3857 ve 27.02.2012 tarihi var onu altındaki boş satırlara yine 3857 ve 27.02.2012 olarak kopyalayacak.. 3858 27.02.2012 satırını görünce duracak o satırı kopyalayıp altındaki boş satırlara onu yapıştıracak.. ve böyle aynı sistem devam edecek. listem çok uzun ben bir kısmını koydum.. yardım ederseniz sevinirim..

 

[NBATMAN]

Merhaba,

Bir Commandbuttona aşağıdaki kodları ekleyiniz...ben office 2003 de denedim çalışıyor.

Private Sub CommandButton1_Click()
Dim son As Integer
Dim i As Integer
son = Range("A65536").End(3).Row
 
For i = 1 To son
If Cells(i + 1, "A") = "" Then
Cells(i + 1, "A").Value = Cells(i, "A").Value
Cells(i + 1, "b").Value = Cells(i, "b").Value
End If
Next
 
End Sub

 

[EmrExcel16]

İstediğiniz ekteki gibi birşey mi acaba

 

[Emir Hüseyin Çoban]

. . .

Soruyu ilk okuduğumda zor olduğunu düşünmüştüm, fill down ile mi yapmak gerekir falan bir kaç deneme yapmıştım. Sakin kafayla biraz düşününce daha basite halledilebiliyormuş.

Sub kod()
Application.ScreenUpdating = False

For i = 1 To [A65536].End(3).Row
If Cells(i, "A") = "" Then
Cells(i, "A") = Cells(i - 1, "A")
Cells(i, "B") = Cells(i - 1, "B")
Else: End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[Necdet]

Merhaba,

Boş hücreler Genel hücre biçimi olmak şartı ile aşağıdaki kodlar işinizi görür

Sub Makro1()
    Columns("A:B").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

 

[gercekgun]

Hüseyin Bey'in formülüyle denedim ve oldu.. Teşekkür ederim ilginize..