Kod değiştiğinde boşluk verme.

[kerem yüce]

Merhaba arkadaşlar,

Sene içinde alınan malların kodları ve tutarlarının olduğu bir listem var. Örneğin kodlar L kolonunda ben kodları sort ettim ve kod değiştiğinde bir sonraki kod ile arasına bir satır eklemesini istiyorum.

Yardımcı olursanız sevinirim.

 

[zafer]

Merhana

Aşağıdaki kodları modül sayfanıza kopyalayıp çalıştırınız
xxxxxxxxxx yerine sayfa ismini yazınız

Sub ekle()
Sheets("xxxxxxxx").select
son = Cells(65536, 12).End(xlUp).Row
For i = son To 2 Step -1

If Cells(i - 1, 12).Value <> Cells(i, 12).Value Then
Rows(i).Insert
End If
Next
End Sub

 

[kerem yüce]

Teşekkürler Zafer bey çok işime yaradı. Umarım bende birgün makro yazacağım.

 

[zafer]

Merhaba

Hemen başlayın

Takıldığınız yerler için yeni konu açarsınız.

Kod yazma ile ilgili linkler
Kod Yazmayı Öğreniyorum
Excelde Makro (Kaydetmek, Düzenlemek (Macro))1
Makro Kaydet Yöntemi (Resimli Anlatım)
***VBA Menüleri***
***Döngüler ve Yapıları***