uygun cümleyi bul ve saya2 ye yazdır..

[karakayalı]

b1 sutununa girdiğim cümleyi a sutununda yer alan değer ile birlikte sayfa2 ye yazdırmak istiyorum...kolay gelsin...dosya ektedir..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub BUL_AKTAR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S2.[A2:B65536].ClearContents
    SATIR = 2
    VERİ = S1.[B1]
    SAY = WorksheetFunction.CountIf(S1.[B2:B65536], "*" & VERİ & "*")
    If SAY = 0 Then GoTo SON
    Set BUL = S1.[B:B].Find(VERİ)
    If Not BUL Is Nothing Then
    Adres = BUL.Address
    Do
    S2.Cells(SATIR, 1) = S1.Cells(BUL.Row, 1)
    S2.Cells(SATIR, 2) = S1.Cells(BUL.Row, 2)
    SATIR = SATIR + 1
    If SATIR - 2 = SAY Then GoTo BİTİR
    Set BUL = S1.[B:B].FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> Adres
    End If
B&#304;T&#304;R:
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
    Exit Sub
SON:
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "Arad&#305;&#287;&#305;n&#305;z veri bulunamam&#305;&#351;t&#305;r!", vbCritical
End Sub

 

[1Al2Ver]

b1 sutununa girdiğim cümleyi a sutununda yer alan değer ile birlikte sayfa2 ye yazdırmak istiyorum...kolay gelsin...dosya ektedir..

Sayın cost_Control, sn.karakayalı b1'e veri girilecek deniyor ancak kayıtlı veriler örnek'te b1 de bulunuyor, ben kodu kopyaladım ancak sonuç alamadım, ben mi yanlış yaptım acaba, saygılar

 

[karakayalı]

TŞK...

yazılan kod işimi gördü...teşekkürler...


Ey şehit oğlu şehit... İsteme benden MAKBER...
Sana kucağını açmış duruyor PEYGAMBER...