bir kolondaki istenilen datayı buıma ve otomatik doldurma.

[bugat]

bir kolondaki istenilen datayı bulma ve otomatik doldurma.

merhabalar,
ekteki dosyada görebileceğiniz gibi sayfanın A kolonunda x satır data var.
CCY ile başlayan tüm hücreler benim için önemli. makroyla yapmak istediğim;
ilk CCY ile başlayan hücreyi bulması,daha sonra CCY ile başlayan 2. hücreye kadar fill down yapması( CCY ile başlayan 2. hücreyi doldurmayacak)
sonra CCY ile başlayan 2. hücreden CCY ile başlayan 3. hücreye kadar fill down yapması( CCY ile başlayan 3. hücreyi doldurmayacak)
ve bunun tüm data için döngü şeklinde uygulanması.(en son bulduğu CCY ile başlayanı datanın sonuna kadar fill down yapmalı)
acaba yardımınız olabilirmi?
örnek dosya ektedir...

 

[kulomer46]

aşağıya doğru filldown yapmakla neyi kastediyorsu. biçimlememi içerikmi aşağıya doğru çoğalsın. Daha açık anlatabilirseniz yardımcı olmaya çalışacağım.

 

[bugat]

merhaba,
dosyada C kolonunda olmasını gerekeni gösterdim.
içeriğin aşağıya doğru kopyalanması gerekli.
teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

1. Kod;

Bu kod hücreyi biçimleri ile birlikte kopyalar.

Sub BUL_DOLDUR_1()
    SAY = WorksheetFunction.CountIf([A:A], "CCY*")
    If SAY = 0 Then Exit Sub
    SON_SATIR = 1
    For X = 1 To SAY
    İLK_SATIR = Range("A" & SON_SATIR & ":A65536").Find(What:="CCY", LookAt:=xlPart).Row
    SON_SATIR = Range("A" & İLK_SATIR & ":A65536").Find(What:="CCY", LookAt:=xlPart).Row - 1
    If SON_SATIR < &#304;LK_SATIR Then
    Range("A" & &#304;LK_SATIR).Copy Range("A" & &#304;LK_SATIR & ":A" & [A65536].End(3).Row)
    Else
    Range("A" & &#304;LK_SATIR).Copy Range("A" & &#304;LK_SATIR & ":A" & SON_SATIR)
    End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

2. Kod;

Bu kod sadece hücre değerini kopyalar.

Sub BUL_DOLDUR_2()
    SAY = WorksheetFunction.CountIf([A:A], "CCY*")
    If SAY = 0 Then Exit Sub
    SON_SATIR = 1
    For X = 1 To SAY
    İLK_SATIR = Range("A" & SON_SATIR & ":A65536").Find(What:="CCY", LookAt:=xlPart).Row
    SON_SATIR = Range("A" & İLK_SATIR & ":A65536").Find(What:="CCY", LookAt:=xlPart).Row - 1
    If SON_SATIR < &#304;LK_SATIR Then
    Range("A" & &#304;LK_SATIR & ":A" & [A65536].End(3).Row).Value = Range("A" & &#304;LK_SATIR).Value
    Else
    Range("A" & &#304;LK_SATIR & ":A" & SON_SATIR).Value = Range("A" & &#304;LK_SATIR).Value
    End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[AS3434]

Makro kaydet ile yaptığım dosya ekte.




NOT: Sayın COST_CONTROL cevap vermiş görmedim.

 

[bugat]

sayın COST_CONTROL ve AS3434.
çok teşekkürler,her ikiside çalışıyor.
saygılar.