depo sayımı yaptıgımda barkod okuyucudan okutulanın işaretlenmesi

[mustafap82]

merhaba arkadaşlar çalışmış oldugum işyerinde ayda bir depo sayımı yapıyoruz genel müdürlükten bizim depomuzda gözüken cihazların listesini excelde gönderiyorlar bizde cihazları bulmak için excel de ctrl+f yapıp borkod okuyucudan okuttugumuzu listeden bulduruyoruz bulunan hucreyide sarıya boyatıyorum buda zaman kaybına neden oluyor sizden ricam barkot okuyucudan okunan cihaz direk sarı renge boyanması yardımlarınız için şimdiden tşk ederim

 

[harziyan]

Ben de sizinkine benzer bir iş için bişeyler yapmıştım bir ara, umarım işinizi görür.

 

[mustafap82]

Ben de sizinkine benzer bir iş için bişeyler yapmıştım bir ara, umarım işinizi görür.

öncelikle bu programı paylaştığın için tşk ederim fakat programda bir hata var örneğin ben a1 e 13 yazıyorum eğer sayfada 13 yoksa ve 13 le başlayan mesela 130 varsa onu secip sarı yapıyor buda benim için buyuk bir sıkıntı bunu duzelte bilirmisin

 

[harziyan]

hayırlı sabahlar;

Sub arabul()
    Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        [COLOR="Red"]xlpart[/COLOR], SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

Kırmızı ile işaretli yeri

xlWhole

bununla değiştiriniz.

 

[mustafap82]

emeğine sağlık istediğim gibi olmus sizden bir ricam daha olacak,kürsör arananı işaretledikden sonra tekrar a1 hücresine geçebilirmi?

 

[harziyan]

İyi akşamlar;

Sub arabul()
    Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlwhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    [COLOR="Red"]Range("a1").select[/COLOR]
End Sub

Kırmızı olan yer eklenecek.

 

[mustafap82]

çok tşk ederim tam istediğim gibi

 

[mustafap82]

arkadaşlar merhaba ben bir aydır bu programı kullanıyorum gayet güzelde çalışıyor programda yannız veriler çok oldugunda seçtimi seçmedimi anlaşılamıyor acaba a1 hücresinde arananı bulamazsa b sütünuna yazdırabilirmiyiz

 

[Orion1]

arkadaşlar merhaba ben bir aydır bu programı kullanıyorum gayet güzelde çalışıyor programda yannız veriler çok oldugunda seçtimi seçmedimi anlaşılamıyor acaba a1 hücresinde arananı bulamazsa b sütünuna yazdırabilirmiyiz

aşağıdaki şekilde deneyeiniz.

Sub arabul()
    On Error GoTo yok
    Range("B1").ClearContents
    Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    Range("a1").Select
    Exit Sub
yok:
Range("B1").Value = Range("A1").Value & " Bulunamadı!"
End Sub

 

[mustafap82]

ilgin için tşk ederim ben bu şekilde kopyaladım fakat bulunmayan veri için herhangibir şey yapmadı.

 

[Orion1]

ilgin için tşk ederim ben bu şekilde kopyaladım fakat bulunmayan veri için herhangibir şey yapmadı.

Aşağıdaki kodu kullanmanız daha iyidir ötekinden.
Ancaaak bulamazsa diyorsunuz.Bu durumda bulamazsa olmuyor.Mutlaka en az 1 tane buluyor.Oda A1 hücresinde oluyor.
Çünkü siz aramayı daraltmamışsınız.Cells diyerek bütün sayfadaki hücreleri kastetmişsiniz.Ama bir hücre aralığı deseydiniz o zaman olurdu.
Mesela range("B:B") deseydiniz sadece B sütünu aranırdı.Range("B:C") deseydiniz B:C sütunu aranırdı.işte o zaman bulamazsa b1 hücresine bulunamadı yazardı.
Bence cells ile komple sayfa yerine bir adres belirtip sadece orasını aratmak bu kodun daha hızlı çalışması için daha doğru olur.
Şimdi siz belli aralık seçmek istiyorsanız 2 yerde cells. seçilmiş onlara Range("B:C") bunu attım sizinki ne ie onu yazın.
O zaman olur.
Kolay gelsin.

Sub arabul()
    Dim k As Range, adr As String
    Set k = Cells.Find(Range("A1").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            With k.Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
            Set k = Cells.FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    Else
        sat=cells(rows.count,"B").end(xlup).row+1
        Range("B" & sat).Value = Range("A1").Value & " Bulunamadı!"
    End If
    Range("a1").Select
End Sub

 

[mustafap82]

üstat dediğin gibi Cells leri Range("F:F") cevirdim sorun düzeldi bu şekilde işimi görür senden bir ricam daha olabilirmi bulunamayan verileri b sütünuna alt alta yazdırabilirmiyiz.yani ilk bulunamayan b1 e ikinci bulunamayan b2 ye gibi

 

[Orion1]

üstat dediğin gibi Cells leri Range("F:F") cevirdim sorun düzeldi bu şekilde işimi görür senden bir ricam daha olabilirmi bulunamayan verileri b sütünuna alt alta yazdırabilirmiyiz.yani ilk bulunamayan b1 e ikinci bulunamayan b2 ye gibi

Gerekli değişikliği yaptım.
Kodlar 11nci mesajdadır.

 

[mustafap82]

üstat b sütünuna yazılan bulunamayan veri a1 hücreye yeni veri girildiğinde siliniyor bir alt satıra geçmiyor seninde zamanını aldım kusara bakma lütfen

 

[Orion1]

üstat b sütünuna yazılan bulunamayan veri a1 hücreye yeni veri girildiğinde siliniyor bir alt satıra geçmiyor seninde zamanını aldım kusara bakma lütfen

Kodları düzenledim.
11 nolu mesajdadır.

 

[umit1907]

Merhabalar
Bizde aylık 12.000.15.000 arası malzeme sayıyoruz bunları el terminali ile excel'e çekiyoruz.Programdanda stok dökümünü alıp ekteki dosyaya yerleştiriyoruz sonra süzle programda olup stokta olmayanları veya stokta olupta programda olmayanlar diye süzüyoruz.Belki işinize yarar.Dosya ektedir.

 

[mustafap82]

ümit bey sizin program bana biraz karışık geldi programı paylaştığın için tşk ederim sağolsun orion1 benim tam istediğim gibi yaptı.