userfomda arabulda uyarı

[yesilcan]

arkadaşlar aşağıdaki gibi bir arabul kodu var.bu koda arama yapıp bulamadığı takdirde nasıl bir msgbox uyarı mesajı verdirebilirim.daha açıklayıcı olur diye dosyada ekledim.
teşekkür ederim.

Private Sub CommandButton3_Click()
Sheets("ÜRÜNLER").Select
deg = CDbl(TextBox1.Value)
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
VERI.TextBox3.Value = ActiveCell.Offset(0, 1).Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton3_Click()
    Sheets("ÜRÜNLER").Select
    If TextBox1 = "" Then MsgBox "LÜTFEN ÜRÜN KODU GİRİNİZ !", vbExclamation, "DİKKAT !": TextBox1.SetFocus: Exit Sub
    Set BUL = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False)
    If Not BUL Is Nothing Then
    VERI.TextBox3.Value = Cells(BUL.Row, 2)
    Else
    MsgBox "ARADIĞINIZ KAYIT BULUNAMAMIŞTIR !", vbExclamation, "DİKKAT !"
    End If
End Sub

 

[Skorpiyon]

Sayın yesilcan,

Aşağıdaki şekilde de deneyebilirsiniz.

Private Sub CommandButton3_Click()
Sheets("ÜRÜNLER").Select
Range("A1").Select
deg = CDbl(TextBox1.Value)
On Error Resume Next
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Activecell.Value <> Textbox1.Value Then
Msgbox "Aranılan veri bulunamamıştır."
Exit Sub
End If
VERI.TextBox3.Value = ActiveCell.Offset(0, 1).Value
End Sub

 

[yesilcan]

de&#287;erli hocalar&#305;m &#231;ok &#246;z&#252;r dilerim ama koddaki "SearchFormat"k&#305;sm&#305; evdeki pc'de hata veriyor i&#351; yerinde normal &#231;al&#305;&#351;&#305;yor neden acaba fikri olan varm&#305;?

 

[Skorpiyon]

Excel versiyonunuzdan kaynaklan&#305;yor olabilir. SearchFormat k&#305;sm&#305;n&#305; kald&#305;rarak deneyin.

 

[yesilcan]

de&#287;erli hocalar&#305;m sizi tekrar rahats&#305;z edece&#287;im ama a&#351;a&#287;&#305;daki kodda (SearchFormat)k&#305;sm&#305; hata veriyor.alternatif kod varm&#305;d&#305;r?
sayg&#305;lar&#305;mla

Private Sub CommandButton3_Click()
Sheets("&#220;R&#220;NLER").Select
Range("A1").Select
deg = CDbl(TextBox1.Value)
On Error Resume Next
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Activecell.Value <> Textbox1.Value Then
Msgbox "Aran&#305;lan veri bulunamam&#305;&#351;t&#305;r."
Exit Sub
End If
VERI.TextBox3.Value = ActiveCell.Offset(0, 1).Value
End Sub

 

[Orion1]

Bütün sayfada arma yapmanız gerekiyormu?Yalnızca Belli sütunlarda arama yapsanız bence dağa doğru olur.Aranılacak veri hangi sütunda ise o sütunda arama yaptırın ve böylece Excel'in yükünü hafifletin derim.Bu durumda hatalı sonuçlarında önüne geçmiş olursunuz.Önce bunu halledelim.Sonrada diğer sorununuzu halledelim diyorum.
Kolay gelsin.

 

[yesilcan]

evren hocam ilgi ve alakan&#305;z i&#231;in &#246;ncelikle te&#351;ekk&#252;r ederim.
b&#252;t&#252;n sayfada arama yap&#305;lmas&#305;n&#305; istemiyorum.sadece a sut&#252;nundaki stok numaras&#305;na kar&#351;&#305;l&#305;k gelen b sutunundaki de&#287;eri texboxa yazs&#305;n istiyorum.
sorunuzu umar&#305;m do&#287;ru anlam&#305;&#351;&#305;md&#305;r.

 

[yesilcan]

dosya ekliyorum.

dilimin döndüğünca anlatmaya çalıştım.umarım anlatabilmişimdir.

 

[Orion1]

evren hocam ilgi ve alakanız için öncelikle teşekkür ederim.
bütün sayfada arama yapılmasını istemiyorum.sadece a sutünundaki stok numarasına karşılık gelen b sutunundaki değeri texboxa yazsın istiyorum.
sorunuzu umarım doğru anlamışımdır.

İşte kodlarınız.

Private Sub CommandButton3_Click()
Dim k As Range, deg As Long
Sheets("ÜRÜNLER").Select
Range("A1").Select
deg = CDbl(TextBox1.Value)
Set k = Range("A:A").Find(What:=TextBox1.Value, LookIn:=xlValues, LookAt:= _
xlWhole)
If Not k Is Nothing Then
    k.Select
    VERI.TextBox3.Value = ActiveCell.Offset(0, 1).Value
    Else
    MsgBox "Aranılan veri bulunamamıştır."
End If
Set k = Nothing
End Sub

 

[yesilcan]

&#231;ok te&#351;kk&#252;r ederim hocam elinize sa&#287;l&#305;k

 

[Orion1]

çok teşkkür ederim hocam elinize sağlık

Rica ederim.
iyi çalışmalar.

 

[yesilcan]

De&#287;erli hocalar&#305;m bu dosyay&#305; a&#287;da kullanmak istiyorum.a&#287;a uygun &#351;ekilde payla&#351;t&#305;rd&#305;.fakat birden fazla pc'de a&#231;&#305;k olunca verileri de&#287;i&#351;tirince ayn&#305; anda di&#287;er pc'lerde de&#287;i&#351;miyor
bunu nas&#305;l &#231;&#246;zerim.
yard&#305;mlar&#305;n&#305;z&#305; rica ediyorum