Bir alt satıra Kopyalama

[ANTALYA 01]

Merhabalar

Ekteki Tabloda Makronun Sayfa 1 de A ve B sütunundaki verilere bakarak Dolu Hücrenin Altındaki Boş Satıra Dolu Hücrenin aynısı kopyalayan Makroya ihtiyacım var.500 ila 1000 Satır Kadar Olabiliyor

 

[Orion1]

Dosyanız ekte.

Sub alta()
Dim son_sat As Long, deg1 As Double, deg2 As String
son_sat = Cells(65536, "C").End(xlUp).Row
sat = 1
For i = 1 To son_sat
    If Cells(i, "A").Value <> "" Then
        deg1 = CDbl(Cells(i, "A").Value)
        deg2 = Cells(i, "B").Value
        Else
        Cells(i, "A").Value = deg1
        Cells(i, "B").Value = deg2
    End If
Next
MsgBox "İşlem tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[ANTALYA 01]

T

Merhabalar

Çok ama çok teşekkür ederim.Bu kadar hızla cevaba ne denir ki.

 

[Orion1]

Merhabalar

Çok ama çok teşekkür ederim.Bu kadar hızla cevaba ne denir ki.

Rica ederim.
İyi çalışmalar.