veriye göre yazdırma

[putedan]

arkadaşlar sorum şu.Sayfa 1 de T.C numarasından sorgulama yapıyorum ve sorgulama sonucunda a1 hücresine ya 1 ile 5000 arasında rakamlar geliyor yada girdiğim t.c. no listede yoksa =YOK diye bir ileti çıkıyor.Ben a1 hücresinde 1 ile 5000 arasında herhangi bir sayı çıktığında sayfa 2 yi otomotik olarak herhangi bir komut vermeden yazdırmak istiyorum.Yani yerleşik işlevlerdeki eğer e benzer bir işlemi yazdır için kullanmak

 

[Orion1]

Aşağıdaki kodu deneyiniz.

On Error GoTo atla
If Isnumeric(Range("A1").Value) And Range("A1").Value > 0 Then
    Sheets("Sayfa2").PrintOut
End If
atla:

 

[putedan]

teşekkür

Evren bey kodunuz için teşekkür ederim ama ben başaramadım örnek dosya ekte onda yapıp gönderseniz çok memnun olurum a1 de 1,2,3,4, vb herhangi bir sayı çıkar çıkmaz yazdırma yapsın

 

[Orion1]

veren bey kodunuz için teşekkür ederim ama ben başaramadım örnek dosya ekte onda yapıp gönderseniz çok memnun olurum a1 de 1,2,3,4, vb herhangi bir sayı çıkar çıkmaz yazdırma yapsın

Tamamda önce benim ismimin yazılışını düzeltiniz.:twisted: :twisted:

 

[putedan]

evren bey sizden çok ama çok özür dilerim acele ile yaptığım bir hata kusura bakmayın

 

[putedan]

arkadaşlar ilk defa bir sorum sordum yardımcı olacak kimse kalmadı mı

 

[Orion1]

Dosyanız ekte..cool:
Butona basınız.

Sub yazdır()
On Error GoTo atla
If IsNumeric(Range("A1").Value) And Range("A1").Value > 0 Then
    Sheets("Sayfa2").PrintOut
End If
atla:
End Sub

 

[putedan]

TeŞekkÜr

evren hocam kod mükemmel şekilde işime yaradı çok çok teşekkürler

 

[Orion1]

evren hocam kod mükemmel şekilde işime yaradı çok çok teşekkürler

Rica ederim.
İyi çalışmalar.