Satır boşluk ekleme

[ofsevim]

Sütunun birinde yinelenen şehirler var .Mesela Ankaradan istanbula geçtiğinde o geçişte boşluk bırakmasını istiyorum bunu nasıl yapabilirim acaba .

 

[Necdet]

Merhaba,

Aşağıdaki kod A sütununa göre çalışır, 1. satırın başlık satırı olduğu düşünülmüştür.
Gerektiğinde kodu kendinize göre uyarlayınız.

Sub Satir_Ac()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
    
        If Not Cells(i, "A") = Cells(i - 1, "A") Then Rows(i).Insert
        
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[nunikmakarios]

Böyle birşey mi

 

[ofsevim]

Merhaba,

Veriler sıralı mı?

Evet sıralı

 

[ofsevim]

Böyle birşey mi

Altın üyelik yokta hocam özelden link falan yapabilir miyiz

 

[Necdet]

2. mesajımı yeniledim, ona bakar mısınız?

 

[ofsevim]

2. mesajımı yeniledim, ona bakar mısınız?

Teşekkür ederim bi bakayım hocam. Makrodan da çok anlamıyorum ama inş yaparım

 

[nunikmakarios]

Altın üyelik yokta hocam özelden link falan yapabilir miyiz

SendGB | Send Large Files | Free file transfer

Free and fast file sharing. Send large files easily. No registration required. We transfer files up to 5GB. File upload with great functions. Mail big file now!

sendgb.com

 

[ofsevim]

Merhaba,

Aşağıdaki kod A sütununa göre çalışır, 1. satırın başlık satırı olduğu düşünülmüştür.
Gerektiğinde kodu kendinize göre uyarlayınız.

Sub Satir_Ac()
   
    Dim i As Long
   
    Application.ScreenUpdating = False
   
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
   
        If Not Cells(i, "A") = Cells(i - 1, "A") Then Rows(i).Insert
       
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

oldu hocam çok teşekkür ederim