İlçe adının kurum adı kadar tekrar etmesi

[ErdalÖzdemir]

Merhaba Arkadaşlar,

Öğrenci_Sayıları tablosunda ilçe adlarının kurum adı kadar tekrar etmesini istiyorum. Uğraştım fakat bir türlü yapamadım.
Ne yapmak istediğimi ilgili Excel dosyası üzerin dede açıklamaya çalıştım.

Yardımlarınız için şimdiden teşekkür ederim.

 

[NBATMAN]

Merhaba,
excel tablonuzu iyi tasarlarsanız eğer örnek dosyanızdaki isterlerin tümünü pivot tablo ile mükemmel şekilde halledebilirsiniz.

 

[ErdalÖzdemir]

Hocam, raporu ben tasarlamadım,. Sistemden alınan rapor bu şekilde.
Pivot tabloyla değil kod ile yapmam lazım.

 

[ErdalÖzdemir]

Arkadaşlar yardımlarınızı bekliyorum.

 

[NBATMAN]

Merhaba

Dosyanızda A sütununu seçin
ardında F5 tuşuna basın
alttaki pencere çıkar, özel butonunu seçin



Bu pencerede Boşluklar seçeneğini seçin

ardından shift+= tuşuna birlikte basıp hücre içine = koyun



sonrada yukarı ok tuşuna basıp üsteki ilk dolu hücreyi seçin



sonrada Ctrl + Enter tuşuna birlikte basın

sonuç:

 

[ErdalÖzdemir]

Hocam, teşekkür ederim.
Gerçek tablo 35-50 bin satır aralığında bunu kod ile yapma durumu yok mu

 

[NBATMAN]

Merhaba

kod şu şekildedir

Sub BosluklariDoldur()
Dim LastRow As Long
Dim i As Long

' Veri bulunan son satırı bul
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

' A sütununda döngü
For i = 3 To LastRow
' Eğer hücre boşsa üstteki değeri yaz
If IsEmpty(Cells(i, "A")) Then
Cells(i, "A").Value = Cells(i - 1, "A").Value
End If
Next i
End Sub

 

[ErdalÖzdemir]

Hocam, teşekkür ederim.
Şu anda deneme imkanım yok.
Denedikten sonra geri dönüş sağlarım

 

[NBATMAN]

Rica ederim.

 

[ErdalÖzdemir]

Hocam, tamamdır.
Teşekkür ederim. Elinize emeğinize sağlık.
Sorun çözülmüştür.