Selam Aleykum Merhabalar Arkadaşlar,
Forumda kontrol ettiğimde bu konu hakkında bir kaç makaleye ulaştım,
Yapmak İstediğim Şu Arkadaşlar,
Cari Kodu Cari İsim Cari İl Cari İlçe
7526 ROTEKS TEKSTİL İHR.SAN.TİC.AŞ. İZMİR ÇİĞLİ
7526 ROTEKS TEKSTİL İHR.SAN.TİC.AŞ. İZMİR ÇİĞLİ
7437 ENGİN ÇEKER * MÜCAHİD SAĞLAM ORTAKLIĞI MANİSA YUNUSEMRE
7437 ENGİN ÇEKER * MÜCAHİD SAĞLAM ORTAKLIĞI MANİSA YUNUSEMRE
7434 ZEKİYE ÜNVER * EMC OTOMOTİV DENİZLİ PAMUKKALE
7260 REŞAT İRDEM * ASOTO KAPORTA VE BOYA DENİZLİ MERKEZEFENDİ
Bu şekilde bir tablom var bu carilerin yaşlandırması olarak
Şimdi A1 Hücresinde cari kodu B1 de Cari İsim C1 İl D1 İlçe olmak üzere bir rapor var
vba makroda bu cari kodu farklı olanların arasına boşluk ekliyecek ama satır sayıları sabit olmadığı için
Eğer a2 = a2 value değeri aynıysa boşluk eklemiyecek satır sayısı belli olmadığı için rapor olduğu için değişken olarak sayaç lazım örneğin 60 kez işte a3=a2 a4=a3 ise boşluk ekleme
eşit değilse boşluk satır ekle gibi bir kod yazabilir misiniz?
Sub SatırEkle()
ss = Range("a65536").End(3).Row
For i = ss To 3 Step -1
Cells(i, 1).EntireRow.Insert
Next
End Sub
bu bütün satırlar arasına boşluk bırakıyor buna if range value ile bir şart yapmamız gerekiyor. Uzun zaman olduğu için vb kodlarını hatırlamıyorum Yardımlarınız için teşekkur ederim.
Saygılarımla...