veri çağırma

[honestguy25]

değerlı uzman arkdaşlar bul tuşu yaptım
bu forumda tuşa bastıımda strconv mavi oluyor hata veriyor. neden olabılır acaba forumda pek çok baktım ama bulamadım saygılar..


Private Sub cmdbul_Click()
Sheets("sbsgeneltablo").Select
TextBox22.RowSource = "textbox22!c2:c500"
Dim bak As Range
For Each bak In Range("c1:c" & WorksheetFunction.CountA(Range("c1:c65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox22.Value, vbUpperCase) Then
bak.Select
TextBox21.Value = ActiveCell.Offset(0, -1).Value
TextBox24.Value = ActiveCell.Offset(0, 1).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

 

[Mahmut Bayram]

Örnek dosya ekleyiniz.

 

[honestguy25]

dosyayı ekledim yardımcı olursanız sevirnim Allah razı olsun

 

[honestguy25]

birde ilk açılışta makroları etkinleştir vede (dışardan resim dosyası çağırdım ıcın image nesnesıne sanırım ) guncelleştir uyarılarının olmaması ıçın ne yapmalıyım acaba?

 

[Mahmut Bayram]

İlgili kodlarınızı şu şekilde değiştiriniz.

Sheets("SBSGENELTABLO").Select
'TextBox22.RowSource = "textbox22!c2:c500"

veya

Sheets("SBSGENELTABLO").Select
Dim bak As Range
    For Each bak In Range("c1:c" & WorksheetFunction.CountA(Range("c1:c65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox22.Value, vbUpperCase) Then
            bak.Select
                    TextBox21.Value = ActiveCell.Offset(0, -1).Value
           TextBox24.Value = ActiveCell.Offset(0, 1).Value
                                Exit Sub
        End If
    Next bak
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"

şeklinde kullanabilirsiniz.

 

[honestguy25]

ne yazkki yine aynı hatayı verdi sizde çalışmışmıydı?

 

[Mahmut Bayram]

birde ilk açılışta makroları etkinleştir vede (dışardan resim dosyası çağırdım ıcın image nesnesıne sanırım ) guncelleştir uyarılarının olmaması ıçın ne yapmalıyım acaba?

Bağlantıları düzenleyerek kaynağı kesebilirsiniz.

 

[Mahmut Bayram]

Bende çalışan hali ekte.
İyi geceler.

 

[honestguy25]

teşekkur ederim sizin yaptıgınız çalışıyor fakat benım dosyamda sanırım bazı şeylerle çakışıyor gonderdıınız dosya uzerınden çalışmaya çalışcam teşekkur ederım