Ara-bul

[el-vis]

Girilen barkodu sayfada arayıp bulmak istiyorum.
Bunu ctrl+f ile yapabiliyorum.fakat çok sık yaptığımdan
pratik değil.

Teşekkür ederim

 

[el-vis]

Yardımcı olabilecek arkadaşlar bakabilirmi acaba...

 

[halilyor]

Barkoda göre ürün bulma
çalışmanıza uyarlayın.


http://www.dosya.tc/server6/h7dfw1/barkoda_gore_urun_bulma.xls.html

 

[halilyor]

Mesajlara neden dönüş yapılmadığını anlamış değilim.
Bundan sonra geri dönüş yapılmayan mesajları ve dosyaları silmeyi düşünüyorum.

 

[el-vis]

Uğraşınıza teşekkür ederim.esas dosyaya yarın uygulamaya çalışacağım.
Yardımlarınıza ihtiyacım olabilir.geç cevap verdiğim için özür dilerim.

 

[halilyor]

Sayın el-vis müsait olduğum sürece herkese yardımcı olmaya çalışırım.
Özür dilenecek birşey yok.Hepimizin işi gücü var.

Bazı çalışmalarıma bu linkten bakabilirsiniz.

https://www.youtube.com/channel/UCO45DlrY5jnPdlxwM6EP6rw/videos

 

[el-vis]

Teşekkür ederim...

 

[vardar07]

Sayfadaki "BUL" butonu kod bölümüne ekleyip deneyiniz.

Sub Düğme87_Tıklat()
Set s1 = Sheets("RAF GİR")
a = s1.Range("C65536").End(3).Row
b = s1.TextBox1
For i = 3 To a
If Mid(Cells(i, "D"), 1, 1) < 1 Then
c = Mid(Cells(i, "D"), 2, 7)
Else
c = Mid(Cells(i, "D"), 1, 7)
End If
If c = b Then
MsgBox (Cells(i, "D").Address)
End If
Next
End Sub

 

[el-vis]

Ben denedim yapamadım ,bir de siz bakabilirmisiniz...

 

[vardar07]

"BUL" butonu üzerinde sağ tıklayıp çıkan menüden makro ata seçeneğini tıklayınız. Yine açılan pencerede sağ üstte bulunan yeni seçeneğini seçince açılacak olan kod bölümüne yukardaki kodu ekleyin. En alt ve en üstteki satırlarda çift çıkarsa en üsteki ve en alttaki satırları siliniz. Sayfa üzerinde TextBox'a veri girip bul butonuna tıklayınca mesaj olarak hangi hücrede olduğunu görebilirsiniz. Eğer birden fazla var ise çıkan mesaja her tamam dediğinizde diğer hücreleri gösterecektir.

 

[el-vis]

dediklerinizi aynen yaptım fakat olmadı...

 

[vardar07]

Dosyanızı yükleyin hata nerede bir bakalım.

 

[el-vis]

ara-bul

dosya ektedie..

 

[Erdem Akdemir]

Merhaba,

Tag'da ki kodu dener misiniz?

Sub Düğme87_Tıklat()
If ActiveCell.Column <> 4 Then Range("d2").Select
son = Sayfa1.Cells(Rows.Count, "A").End(3).Row
deger = Left(Format(Sayfa1.TextBox1, 0), 7)
Range("d2:d" & son).Find(deger, ActiveCell, xlValues, xlPart, , xlNext).Select
End Sub

 

[el-vis]

elinize sağlık tam istediğim gibi olmuş...

yanlız bulamadığında hata veriyor.onun yerine "BULUNAMADI" gibi bir mesaj yazdırabilirsek
çok daha güzel olacak.
Teşekkür ederim..

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki gibi deneyin.

Sub Düğme87_Tıklat()

If ActiveCell.Column <> 4 Then Range("d2").Select
son = Sayfa1.Cells(Rows.Count, "A").End(3).Row
deger = Left(Format(Sayfa1.TextBox1, 0), 7)
Set a = Range("d2:d" & son).Find(deger, ActiveCell, xlValues, xlPart, , xlNext)
If a Is Nothing Then
MsgBox "BULUNAMADI"
Else
a.Select
End If
End Sub

 

[el-vis]

Teşekkür ederim