Hücredeki sayıların hanelerine göre nasıl arama yapılır?

[gurayaltay]

Merhaba,

Ekli tablodaki "BARKOD NO" kolonundaki sayıların ilk 1, ilk 2 ve ilk 3 hanesine göre "BARKOD NO" bilgilerini ve karşısındaki "BAKİYE" kolonundan tutarları çekmek istiyorum. Örnek "BARKOD NO" kolonundaki 8 ile başlayan barkod nolarını ve karşısındaki bakiyeleri C ve D kolonuna, "BARKOD NO" kolonundaki 80 ile başlayan barkod nolarını ve karşısındaki bakiyeleri E ve F kolonuna, "BARKOD NO" kolonundaki 802 ile başlayan barkod nolarını ve karşısındaki bakiyeleri ise G ve H kolonuna yerleştirmek istiyorum. Bu işi farklı yöntemler ile yapabiliyorum mesela "BARKOD NO" kolonunu data>text to columns özelliğinden parçalara ayırıp daha sonra VLOOKUP ile çağırarak bu isteğim oluyor ancak çok zaman alıyor. Daha kolay yöntemini bilen var ise paylaşımınızı rica ederim. Forumda da çok aradım ama bulamadım.

Saygılar,

Güray

 

[Emir Hüseyin Çoban]

. . .

8 li kod grubu sabit mi ?
Yani her zaman 8 - 80 - 802 yi mi aratacaksınız.

. . .

 

[gurayaltay]

Merhaba,

Hayır maalesef sabit değil, 8-80-802 sayılarını konuyu anlatabilmek için örnek olarak yazdım. Duruma göre hanelerdeki sayılar ve haneler değişiyor.

 

[excel41]

eki inceleyin

 

[sakman26]

selam,
alternatif olarak eki inceleyiniz..
kolay gelsin..

 

[Emir Hüseyin Çoban]

. . .

Altarnatifler çoğalıyor.
Bir çalışma hazırlamıştım, boşa gitmesin. Ekliyorum.

İşlem Sonucu:

Sub KOD()
msj = InputBox("Aranacak Barkod No Girin" & Chr(10) & "Örneğin" & Chr(10) & "800 ile başlar şeklinde arama yapar")
If msj = "" Then Exit Sub

Application.ScreenUpdating = False

Range("C2:D65536").ClearContents

sat = 2
For i = 2 To [A65536].End(3).Row

If Cells(i, "A") Like msj & "*" Then
Cells(sat, "C") = Cells(i, "A")
Cells(sat, "D") = Cells(i, "B")
sat = sat + 1
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[gurayaltay]

Herkesin emeğine sağlık.