• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

macroyu geliştirme

  • Konbuyu başlatan Konbuyu başlatan search77
  • Başlangıç tarihi Başlangıç tarihi
Denetim araç çubuğundan bir buton ekleyin sonra TextBox1_Change olayı içindeki kodları, CommandButton1_Click olayı içine yerleştirin.

Private Sub CommandButton1_Click()
On Error Resume Next
NO = TextBox1.Value
Set FC2 = Range("A7:J65000").Find(What:=NO)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=1
End If
 
arkadaşlar ben hamit beyin dediği gibi yapıyorum, fakat sürekli hata alıyorum, dosyanın son halini sizler ekleyebilir misiniz?
 
arkadaşlar
ben bu makrolar konusunda daha cok acemiyim
bu olayı tam anlayamadım.bu konuda yardımcı olabilirmisiniz.
yardımlarınızı bekliyorum
 
Dosya ekte.

Kutuya giriş ve çıkışta double-click yapmalısınız.
 
yurttas bey elinize sağlık tam istediğim gibi olmuş, fakat double-click yerine bi buton veya enter tuşuna basınca bilgileri getirme yapsa bunu yapma şansımız olabilir mi???
 
sn arkadaşlar
ben bunu acıyorum.normal bir excel sayfası acılıyor.
şimdi ne yapmam gerekiyor
 
yurttas bey elinize sağlık tam istediğim gibi olmuş, fakat double-click yerine bi buton veya enter tuşuna basınca bilgileri getirme yapsa bunu yapma şansımız olabilir mi???

Birde buna bakın.

Dosyayı güncelledim.
 
Son düzenleme:
sayın yurttas bey bu dediğim gibi olmuş, fakat hata veriyor, boşken süz deyince yada başka kod girince error diyor, bi bakabilir misiniz?

syg.
 
bende yardım bekliyorum fakat duyan yok galiba
bak ben seni duyuyorum fakat elimden birşey gelmiyor
 
ben bu yukar&#305;daki >ddddd1.< dosyay&#305; indirdim.ac&#305;nca normal bir excel dosyas&#305; gibi ac&#305;l&#305;yor.&#351;imdi ne yapabilirim
birde makrolar hakk&#305;nda daha &#231;ok acemiyim.bu konuda yard&#305;mlar&#305;n&#305;z&#305; bekliyorum.
herkese iyi &#231;al&#305;&#351;malar,,,,
 
Geri
Üst