Değer aramak ve getirmek

[murat_tiran1]

Merhabalar iyi çalışmalar. excel sayfamda A1 hücresinde başlayarak A100 hücresine kadar 12 karakterden (1305KK0011982) oluşan hepsi farklı stok numaraları listesi mevcut. benim yapmak istediğim B1 hücresine stok numarasının son 4 karakterini yazmak ve B1 hücresine o stok numarasının tamamını getirmesini yazmasını istiyorum. Bunu yapabilir miyiz. Teşekkür ederim. Dosya ektedir.

Error - Dosya Yükle Club - Dosya Upload

Error

dosyayukle.club

 

[Erdem Akdemir]

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
If Len(Target.Value) = 4 Then
Application.EnableEvents = False
deg = WorksheetFunction.Match("*" & Target.Value, Columns(1), 0)

If deg = Empty Then
MsgBox "Stok kodu bulunamadı."
Else
Target.Value = Cells(deg, "A")
End If
End If

Application.EnableEvents = True

End Sub

 

[murat_tiran1]

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
If Len(Target.Value) = 4 Then
Application.EnableEvents = False
deg = WorksheetFunction.Match("*" & Target.Value, Columns(1), 0)

If deg = Empty Then
MsgBox "Stok kodu bulunamadı."
Else
Target.Value = Cells(deg, "A")
End If
End If

Application.EnableEvents = True

End Sub

Affınıza sığınarak kodu ben ekleyip çalıştıramadım. yardımcı olurmusunuz.

 

[Erdem Akdemir]

ALT+F11 ile visual basic tarafına geçin.
Sayfa1'e tıklayın ve kodları yapıştırın.

 

[murat_tiran1]

Çok Teşekkür ederim.

 

[murat_tiran1]

Benim başka bir sıkıntım daha var ama yardımcı olur musunuz. Ben stok numaralarını bir programdan alıyorum ve kopyalarken sayı olarak hücreye yapıştırıyorum. Formül kullanmaya kalktığımda ise YOK hatası veriyor ve ben bu kopyaladığım stok numaralarını metin hücrelerine değiştirip teker teker çift tıklayarak aktif olsmasını sağlıyorum buda çok yorucu ve zahmetli bir olaya dönüşüyor. Bunu kod ile yapabilir miyiz. Aralık A:A

 

[Erdem Akdemir]

Hata veren dosyanızı ekler misiniz.

 

[murat_tiran1]

Hata veren dosyanızı ekler misiniz.

https://dosyayukle.club/4pf

bu dosyadaki gibi formül vs yazdığım zaman Yok hatası vermekte bende hepisini seçiyorum metin biçimli hücre yapıyor ve hepsine çift tıklama ile veya F2 enter ile düzeltiyorum. Bunun için kod olur mu acaba o aralıktaki tüm hücrelerin Metin Biçimli hücre olması için.

 

[Erdem Akdemir]

Hata veren bir şey göremedim. Hata veren işlemi görmem lazım.

 

[murat_tiran1]

Hata veren bir şey göremedim. Hata veren işlemi görmem lazım.

Erdem bey bu sizin yazdığınız kod çok güzel çalışmakta.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
If Len(Target.Value) = 4 Then
Application.EnableEvents = False
deg = WorksheetFunction.Match("*" & Target.Value, Columns(1), 0)

If deg = Empty Then
MsgBox "Stok kodu bulunamadı."
Else
Target.Value = Cells(deg, "A")
End If
End If

Application.EnableEvents = True

End Sub


Sizin kodu Stok Nu. larını aldığı listeyi ben Stok diye başka sayfadan aldırmak istesem nasıl değişiklik yaparız. Target.Value = Cells(deg, "A") ne ile değiştirmemiz gerek

 

[Erdem Akdemir]

Sorularınızı örnek dosya ile desteklemeniz gerekiyor. Suya yazı yazmayı sevmiyorum.

 

[murat_tiran1]

Sorularınızı örnek dosya ile desteklemeniz gerekiyor. Suya yazı yazmayı sevmiyorum.

Haklısınız düşünemedim. Dosyayı ekledim

Error - Dosya Yükle Club - Dosya Upload

Error

dosyayukle.club

 

[Erdem Akdemir]

Sıkıntı yaratan durumu hala göremedim.

 

[muzaffer.sm]

Erdem Bey,

Arkadaşın dosyasındaki ilk hücre metin biçiminde saklanan sayı.Ardından gelen değerler metin biçiminde.Sanıyorum başka yerden veri aktarıp buraya verileri oluşturuyor.
İlk hücredeki değerin sonu 526 yazsanız bile arayıp bulamayacak gördüğüm kadarı ile. A sütun bütünü ile metin tipinde olması gerek gibi.

 

[muzaffer.sm]

https://dosyayukle.club/4pf

bu dosyadaki gibi formül vs yazdığım zaman Yok hatası vermekte bende hepisini seçiyorum metin biçimli hücre yapıyor ve hepsine çift tıklama ile veya F2 enter ile düzeltiyorum. Bunun için kod olur mu acaba o aralıktaki tüm hücrelerin Metin Biçimli hücre olması için.

Bu dosyayı bir deneyin. Erdem bey'in dosyasına bir kod ilave ettim. Korhan hocam sağ olsun. Soru cevap getirisi ile onun bir çözümde vermiş olduğu kodu ilave ettim. Stoklistesi sayfasında deneme yapın.

Hata indir

Hata

www.dosyaupload.com