süzülen veriyi yazdırma

[arifbirgen]

Değerli arkadaşlar
yazıcı düğmesine süzülen veriyi A4 -den itibaren 60 satırı yazdırmak istiyorum.Bu konuda
yardımcı olursanız memnun olurum.ŞİFRE : arif

 

[Korhan Ayhan]

Merhaba,

Dosyanızda modül içinde zaten bir kod kullanmışsınız. Gerçi yarım bırakılmış bir kod yazılmış. Ben aşağıdaki gibi düzenledim. Dener misiniz?

Sub Yazdir()
    Dim Satir As Long
    Satir = Cells(Rows.Count, "I").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$A$4:$L$" & Satir
    ActiveSheet.PrintOut
End Sub

 

[arifbirgen]

Sn.Korhan Ayhan

Hocam yardımlarınızdan dolayı çok teşekkür ederim.İyi çalışmalar.

 

[welat63]

listboxta çalışma kitabındaki sayfaların tamamını tek sayfada tek butonla aramak

Merhaba,
Eklediğim dosyanın içindeki excel ilk sayfada ara butonu var ben istiyorumki ara butondan tüm çalışma sayfaların hepsini ara dediğimde arasın şuanki hali sadece ilk sayfadaki verileri arıyor yardımlarınızı bekliyorum

 

[NBATMAN]

Merhaba,
Eklediğim dosyanın içindeki excel ilk sayfada ara butonu var ben istiyorumki ara butondan tüm çalışma sayfaların hepsini ara dediğimde arasın şuanki hali sadece ilk sayfadaki verileri arıyor yardımlarınızı bekliyorum

merhaba


ekte daha önce siteden indirdiğim Sn.Evren Gizlen'e ait bir dosya var isterseni onu bir inceleyiniz...

 

[welat63]

merhaba


ekte daha önce siteden indirdiğim Sn.Evren Gizlen'e ait bir dosya var isterseni onu bir inceleyiniz...

Öncelikle ilgilendiğiniz için teşekür edrim.ekte ara bul işime çok yaradı yanlız cümleyi tam yazmadığında bulmuyor ben istiyorumki örnek ahmet yazacağıma ah yazdığım zaman bütün ah la başlayan cümleleri bulsun

 

[Emir Hüseyin Çoban]

. . .

Bul butonu kodlarına, aşağıda belirttiğim kodları ilave ederek deneyiniz.

    End If
    [B]aranan = TextBox1 & "*"[/B]
    Set k = Sheets(syf).Cells.Find([B]aranan[/B], , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do

. . .

 

[welat63]

. . .

Bul butonu kodlarına, aşağıda belirttiğim kodları ilave ederek deneyiniz.

    End If
    [B]aranan = TextBox1 & "*"[/B]
    Set k = Sheets(syf).Cells.Find([B]aranan[/B], , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do

. . .

Teşekür edrim yardımlarınız için

 

[welat63]

. . .

Bul butonu kodlarına, aşağıda belirttiğim kodları ilave ederek deneyiniz.

    End If
    [B]aranan = TextBox1 & "*"[/B]
    Set k = Sheets(syf).Cells.Find([B]aranan[/B], , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do

. . .

Bu kodlar sadece sütünün içindeki ilk harf neyle başlıyorsa onları buluyor örnek Ahmet uzun yazıyor ben ara kısmına uzun yazdığım zamanda ahmet uzunu bulsun istiyorum bu konuda yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

aranan =[B][COLOR="Red"] "*"[/COLOR][/B] & TextBox1 & "*"

. . .

 

[welat63]

. . .

aranan =[B][COLOR="Red"] "*"[/COLOR][/B] & TextBox1 & "*"

. . .

Hüseyin bey teşekür edrim yardımlarınız için