Koşullu dizme ( Hücre Değiştikçe)

[topcuexcel]

Merhabalar
Eklediğim dosyada sorunumu açıkladım. Yardım edebilirseniz çok sevinirm.

 

[uzmanamele]

merhaba

1 ve 2. adımlar aşağıdaki kod ile kolay.
4. adım da mümkün ancak 3. adım yani sayfa düzenini manuel yapsanız daha iyi olur.

Sub liste()
Set s1 = Sheets("liste")
ss1 = Range("a65536").End(3).Row
For i = ss1 To 2 Step -1
If s1.Cells(i, "a").Text <> s1.Cells(i - 1, "a") Then
s1.Rows(i).EntireRow.Insert
End If
Next
If s1.Range("A2") = "" Then Range("A2").EntireRow.Delete
ss2 = Range("a65536").End(3).Row
For j = 2 To ss2
If s1.Cells(j, "a") = "" Then
s1.Range("A1:C1").Copy Range("A" & j)
End If
Next
End Sub

 

[topcuexcel]

Teşekkürler Uzmanamele.
Peki Bu 3.adımı yapmak çok mu zordur.

 

[uzmanamele]

merhaba

zor değil ancak sıkıntı çıkabilir.
grup sayısı ve gruptaki eleman sayısı değişken.
20-30 grup ve 3-8 arası elemanı olan bir dosyada istenilen sayfa düzenini elde etmek için manuel yapmanın daha uygun olacağını düşünüyorum.
enazından ben bu kodu yazıncaya kadar el ile sayfayı daha çabuk hazırlarım.
bazen insan beyni makineden çok daha hızlı karar verebilir.

en iyisi siz dosyayı çeşitlendirerek tekrar ekleyin, kod ile deneyelim

 

[topcuexcel]

Kusura bakmayın cevabınızı görmedim...
Listemin orijinal halini ekledim.. Bir ERP programından excele aktarıyorum müşterilerin sipariş kalanlarını gösteriyor dolayısıyla A sütünü yani Cari adı sipariş bittikçe ya da sipariş açıldıkça hep değişecek. (gerekir mi bilmiyorum ama müşteri listesi bellidir 20 yi geçmez) mail atma ve bu listeyi dizme dışında herşey otomatik makrolara bağlı mailden umudumu yitirdim çünkü uzak masaüstü çalışıyorum en azından şu dizmeyi bi hallede bilirsem her şey otomatik olacak.