DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Doldur()
For i = 10 To [E65536].End(3).Row
If Cells(i, "b") = "" Then
Cells(i, "b") = Cells(i - 1, "b")
End If
If Cells(i, "c") = "" Then
Cells(i, "c") = Cells(i - 1, "c")
End If
Next i
End Sub