Alt satır boş ise üst satırı kopyalama makrosu

[use2000]

b sütünunda alt satır boş ise üst satırı kopyalasın istiyorum. ekteki dosyada sayfa1 deki veriler sayfa2 deki gibi olsun istiyorum. teşekkürler

 

[asi_kral]

b sütünunda alt satır boş ise üst satırı kopyalasın istiyorum. ekteki dosyada sayfa1 deki veriler sayfa2 deki gibi olsun istiyorum. teşekkürler

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub üstü_alta_kopyala_1967()
'Konu       :   Üstteki Dolu Satırı Boş Satıra Kopyalama
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = 4 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(asi, "B") <> "Member:" And Cells(asi, "B") <> "Distribution:" Then
If Cells(asi, "B") = "Period:" Then asi = asi + 2
If Cells(asi, "B") = Empty Then
Cells(asi, "B") = Cells(asi - 1, "B")
End If
End If
Next
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[Huseyinkis]

b sütünunda alt satır boş ise üst satırı kopyalasın istiyorum. ekteki dosyada sayfa1 deki veriler sayfa2 deki gibi olsun istiyorum. teşekkürler

ekteki kodları denermisiniz.

Alternatif

Sub kopyala()
For i = 2 To Range("A65536").End(3).Row
If Cells(i, 2).Value = "" And Cells(i - 1, 2).Value <> "Period:" And Cells(i - 1, 2).Value <> "" Then
Cells(i, 2).Value = Cells(i - 1, 2).Value
End If
Next
End Sub

 

[use2000]

çok teşekkür ederim hocam ellerine sağlık..

 

[asi_kral]

çok teşekkür ederim hocam ellerine sağlık..

Kolay Gelsin.

 

[Ahmet ÖZGÜR]

Merhaba bende faydalandım bu makrodan, Teşekkürler asi_kral

 

[canbey6161]

ekteki kodları denermisiniz.

Alternatif

Sub kopyala()
For i = 2 To Range("A65536").End(3).Row
If Cells(i, 2).Value = "" And Cells(i - 1, 2).Value <> "Period:" And Cells(i - 1, 2).Value <> "" Then
Cells(i, 2).Value = Cells(i - 1, 2).Value
End If
Next
End Sub

Kod yalnızca "B" sutununa işliyor bu koda a,b,c,d,e,f,g sutunlarınıda eklemek için bir önerisi olan varmı

 

[Ömer]

Merhaba,

Sizin tam olarak istediğiniz nedir. Detaylı açıklarmısınız.

.

 

[canbey6161]

Merhaba,

Sizin tam olarak istediğiniz nedir. Detaylı açıklarmısınız.

.

Kod ile alt satır boş ise üst satırdaki yalnızca b sutununu, boş satıra kopyalıyor.
Kod ile b sutunundaki veri bir alt boş satıra kopyalanılıyor.

İstenilen; Koda ilave olarak a,b,c,d,e,f,g sutunlarındaki verileri bir alt boş satıra kopyalamak istiyorum.

 

[Ömer]

Kopyala kodlarını aşağıdakilerle değiştirin.

Sub kopyala()
For i = 3 To Range("A65536").End(3).Row Step 2
Cells(i, "A").Resize(1, 7).Copy Cells(i + 1, "A")
Next
End Sub

.

 

[canbey6161]

Kopyala kodlarını aşağıdakilerle değiştirin.

Sub kopyala()
For i = 3 To Range("A65536").End(3).Row Step 2
Cells(i, "A").Resize(1, 7).Copy Cells(i + 1, "A")
Next
End Sub

.

Teşekkürler