Ana hesaplarının getirilmesi ve boş satırların silinmesi

[1903emre34@gmail.com]

Merhabalar,

Aradaki bir satır boşluklarını silinmesi ve "A" sütündaki Ara toplam 2 100 veya ara toplam 2 101 vs kelimeler yer almaktadır. 100 ve 101 ana hesap kodları işaret etmektedir, ben istiyorum ki ara toplam 2 100 veya başka ana hesap kodu yer alıyorsa metin yer alıyorsa "A" sütünda, hemen "C" sütüna 100,101 vs yazılması nasıl kod oluşturabiliriz

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()

    Dim i As Long, sat As Long, son As Long, a
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    sat = 1
    For i = 1 To son
        sat = Cells(sat, "A").End(xlDown).Row
        If IsNumeric(Cells(sat, "A")) = False Then
            a = Split(Cells(sat, "A"), " ")
            Cells(sat, "C") = a(UBound(a))
        End If
        If sat = son Then Exit For
    Next i
    
    [C:C].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  
End Sub

.

 

[1903emre34@gmail.com]

Teşekkürler, Ömer bey,