YAPAMADIM :(

Mesaj Kutusu. Programcıların olmazsa olmazlarından.

YAPAMADIM :(

İleti#1)  gencturkk » 14 Oca 2017 20:58

Merhaba,
Kendi çapımla yapmaya çalıştığım ara, bol makrosunda textbox kutusuna yazılan veriyi bulamadığın bulunamadı mesajı için msgbox ekleyemedim. 2 gündür tüm kombinasyonları denedim ama elde var 0. kodlar aşağıda sunulmuştur


Dim bul3 As Range

For Each bul3 In Range("E2:E" & WorksheetFunction.CountA(Range("E2:E15000")))
If StrConv(bul3.Value, vbUpperCase) = StrConv(TextBox20.Value, vbUpperCase) Then
bul3.Select

TextBox21.Value = ActiveCell.Offset(0, -1).Value
TextBox22.Value = ActiveCell.Offset(0, 1).Value
TextBox23.Value = ActiveCell.Offset(0, -3).Value
TextBox24.Value = ActiveCell.Offset(0, -2).Value
TextBox25.Value = ActiveCell.Offset(0, 2).Value
TextBox26.Value = ActiveCell.Offset(0, 3).Value
TextBox27.Value = ActiveCell.Offset(0, 5).Value
TextBox28.Value = ActiveCell.Offset(0, 7).Value
TextBox35.Value = ActiveCell.Offset(0, 6).Value
TextBox29.Value = ActiveCell.Offset(0, 4).Value
TextBox30.Value = ActiveCell.Offset(0, 8).Value
TextBox31.Value = ActiveCell.Offset(0, 9).Value
TextBox32.Value = ActiveCell.Offset(0, 10).Value
TextBox33.Value = ActiveCell.Offset(0, 12).Value
TextBox34.Value = ActiveCell.Offset(0, 11).Value
Exit Sub
End If
Next bul3
End Sub
Kullanıcı avatarı
gencturkk
Siteye Alışmış
 
Kayıt: 27 Arl 2016 21:05
Meslek: memur
Yaş: 40
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: YAPAMADIM :(

İleti#2)  gencturkk » 14 Oca 2017 21:51

son satıra koyarak hallettim. teşekkürler
Kullanıcı avatarı
gencturkk
Siteye Alışmış
 
Kayıt: 27 Arl 2016 21:05
Meslek: memur
Yaş: 40
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum MsgBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe