Arama yapmak

[yüksel1]

Sayın ilgililer, öncelikle sizleri Allahın selamı ile selamlarım.
Ek'te göndermiş olduğum Excel dosyasında örneklendirdiğim gibi içerisinden tamamını yada benzeyenini arayıp bulmak ve düşey ara gibi karşısına yazma işlemini yapabilirmiyim.
selamlar
Yüksel Düven

 

[Ergün GÖKER]

Merhaba

Sayın ilgililer, öncelikle sizleri Allahın selamı ile selamlarım.
Ek'te göndermiş olduğum Excel dosyasında örneklendirdiğim gibi içerisinden tamamını yada benzeyenini arayıp bulmak ve düşey ara gibi karşısına yazma işlemini yapabilirmiyim.
selamlar
Yüksel Düven

Umarım işine yarayabilir. Kendine Uyarlayabilirsin Yada matbu yazılarını bana ver ben uyarlayayım. Kolay gelsin

 

[yüksel1]

Sayın Ergün Göker, öncelikle ilginize teşekkür ederim.
Bu ürünlerin stoktaki tanımları ile çalışılan firmadaki tanımlarındaki kodların farklı yazılmalarından ötürü problem olmaktadır. Komple girişleri değiştiremeyeceğim için ve her ay yeni gelen ürünlerde aynı şekilde olacağı için benim konuyu nasıl yapmam gerekir onu öğrenip her ay yapmam gerekir.
Eğer bir öneriniz olursa minnettar olur, yardımınız için şimdiden teşekkür ederim.
Selamlar
Yüksel Düven

 

[Ergün GÖKER]

gönderdiğim form üzerindenmi yapmayı düşünüyorsunuz?

 

[yüksel1]

arama yapmak

Evet Ergün bey, belki 800-900 kalem ürün var, onların içerisinden benim verdiğim sıralı kodu bulmasını talep ediyorum.
selamlar
Yüksel Düven

 

[SaLLaNaNLaMBa]

merhabalar,
Ekteki dosyaya istinaden,

GTIP düşeyara yaptığımda birden fazla değeri yan yana arasında virgül koyarak yapılabilinir mi?

Teşekkürler.

 

[YUSUF44]

merhabalar,
Ekteki dosyaya istinaden,

GTIP düşeyara yaptığımda birden fazla değeri yan yana arasında virgül koyarak yapılabilinir mi?

Teşekkürler.

Normal DÜŞEYARA formülüyle sadece tek sonuç alınabilir, birden fazla sonucu almak için en ideal yöntem Makrodur. Bunun için bu düzenlemeyi nerede yapacağımızı bilmeliyiz. Hangi hücrede nasıl bir değişiklik olduğunda hangi hücrede nasıl bir değişiklik olmasını istiyorsunuz?

 

[fatiherol06]

Merhaba

İki adet hücrem var birine 34 yazınca İstanbul yazsın İstanbul Yazan yere İstanbul yazınca Diğeri 34 Atsın yani birbirlerini tamamlasınlar veri doğrulama içindeler ve İ yazınca süzen kodumda var =DOLAYLI("'1EYLÜL FİYAT'!C"&KAÇINCI(D11&"*";İSİMLER;0)&":C"&EĞERSAY(İSİMLER;D11&"*")+KAÇINCI(D11&"*";İSİMLER;0)-1)
bunları bu şekilde nasıl birbirine bağlarım yardımcı olacak biri varmı ?

 

[fatiherol06]

Anlatmış olduğum şey aslında ekteki örnek ürün kodu yerine diyelim 34 yazınca açıklama yerine İstanbul atsın
açıklama yerine istanbul yazınca ürün kodu yerine 34 yazsın

 

[SaLLaNaNLaMBa]

Normal DÜŞEYARA formülüyle sadece tek sonuç alınabilir, birden fazla sonucu almak için en ideal yöntem Makrodur. Bunun için bu düzenlemeyi nerede yapacağımızı bilmeliyiz. Hangi hücrede nasıl bir değişiklik olduğunda hangi hücrede nasıl bir değişiklik olmasını istiyorsunuz?

Yusuf Bey ilginiz için teşekkürler,

I hücresine Gtip i yazdığımda, A hücresinde ki gtiplerin karşısında olan EMSAL NO ları"aynı gtip e sahip olan emsal no ları" J-K-L > kaç tane emsal varsa her birini bir hücreye yazsın. satır olarak.

teşekkürler.

 

[YUSUF44]

Yusuf Bey ilginiz için teşekkürler,

I hücresine Gtip i yazdığımda, A hücresinde ki gtiplerin karşısında olan EMSAL NO ları"aynı gtip e sahip olan emsal no ları" J-K-L > kaç tane emsal varsa her birini bir hücreye yazsın. satır olarak.

teşekkürler.

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırarak deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
sonI = Cells(Rows.Count, "I").End(3).Row + 1
sonA = Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("I2:I" & sonI)) Is Nothing Then Exit Sub
For i = 2 To sonA
If Cells(i, "A") * 1 = Target * 1 Then
    yeni = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
    Cells(Target.Row, yeni) = Cells(i, "C")
End If
Next
End Sub

 

[YUSUF44]

Anlatmış olduğum şey aslında ekteki örnek ürün kodu yerine diyelim 34 yazınca açıklama yerine İstanbul atsın
açıklama yerine istanbul yazınca ürün kodu yerine 34 yazsın

Anladığım kadarıyla, aşağıdaki kodları fatura sayfasının kod bölümüne yapıştırırsanız fatura sayfasında A sütununa kod girildiğinde ürün adını B sütununa, B sütununa ürün adı girildiğinde ürün kodunu A sütunununa yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
sonA = Cells(Rows.Count, "A").End(3).Row + 1
sonB = Cells(Rows.Count, "B").End(3).Row + 1
sonfiyat = Sheets("1EYLÜL FİYAT").Cells(Rows.Count, "B").End(3).Row

If Intersect(Target, Range("A15:A" & sonA)) Is Nothing Then GoTo 10
Application.EnableEvents = False
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Sheets("1EYLÜL FİYAT").Range("B4:C" & sonfiyat), 2, 0)
Application.EnableEvents = True
10:
If Intersect(Target, Range("B15:B" & sonB)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, -1) = WorksheetFunction.Index(Sheets("1EYLÜL FİYAT").Range("B4:B" & sonfiyat), _
WorksheetFunction.Match(Target, Sheets("1EYLÜL FİYAT").Range("C4:C" & sonfiyat), 0))
Application.EnableEvents = True
End Sub