• DİKKAT

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

setfocus

  1. beza

    setfocus çalıştıramıyorum.

    Merhaba, Private Sub TextBox1_AfterUpdate() altına yazdığım; Private Sub TextBox1_AfterUpdate() Dim urunf, tutar As Long On Error GoTo yok bul = TextBox1 Range("a:a").Find(bul, lookat:=xlWhole).Select barkod = ActiveCell urun = ActiveCell.Offset(0, 1).Value urunf =...
Geri
Üst