Bul komutu hatası

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Bul komutu hatası

İleti#1)  nihatra » 09 Ekm 2019 10:32

Kolay gelsin
Sayfa3 A6 dan başlamak üzere adı soyadı var
Sayfa3B6 dan başlamak üzere branş ları var

Bul butonuna bastığım zaman hata veriyor

Private Sub CommandButton3_Click()
If ComboBox1.Text = "" Then

MsgBox "lütfen adınızı soyadınızı bulunuz!!!"
Exit Sub
End If
For Each hucre In Sayfa3.Range("a6:c" & WorksheetFunction.CountA(Sayfa3.Range("a6:c65000")) + 1)
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
hucre.Select
TextBox1 = ActiveCell.Offset(0, 1).Value

End If
Next
End Sub
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 404
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: Bul komutu hatası

İleti#2)  kenantu » 09 Ekm 2019 12:19

Dosyanızı eklerseniz daha ayrıntılı inceleyebiliriz şu hali ile fazla bir yorum yapamıyorum kusuruma bakmayın
Kullanıcı avatarı
kenantu
Yeni Başlamış
 
Adı Soyadı:Kenan Tunçay
Kayıt: 12 Haz 2009 08:06
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Bul komutu hatası

İleti#3)  ahmetilhan282 » 13 Ekm 2019 12:56

hucre.Select
satırı yerine
hucre.Activate
yazıp deneyin. Olmazsa dosyanızı ekleyin.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 862
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Bul komutu hatası

İleti#4)  nihatra » 13 Ekm 2019 20:21

Teşekkür ederim.Allah razı olsun
aşağıdaki sorun ile ilgilide yardım edebilir misiniz.
Textbox ların bazıları toplanmayacağı için aşağıdaki gibi yazdığımda hata veriyor.
(Tüm Texebox ları deği bazılarını toplamak için )
For i = 16 To 27
topla = Val(Controls("textbox" & i)) + topla
TextBox46 = topla
Next i
For a = 34 To 45
toplam = Val(Controls("textbox" & a)) + toplam
TextBox47 = toplam
Next a
For b = 51 To 53
toplam = Val(Controls("textbox" & b)) + toplam
TextBox48 = toplam
Next b
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 404
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: kutlayislek, Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe