B sütunundaki fiyatları F sütununda yerine gönderme

[izcik]

Merhabalar sayın uzmanlarım.

Uzmanlarımdan edindiğim kodların tamamını hemen her gün kullanıyorum. Ve ne kadar teşekkür etsek, saygı duysak azdır.

Diyelimki A sütununda sırayla ürün kodları yazılı

ÜRÜN1
ÜRÜN2
ÜRÜN3
....
.... şeklinde uzayıp gidiyor




B sütununda ise sırayla fiyatları yazılı
2,1
2,2
2,3
...... diye gidiyor.

A ve B sütunundakiler kayıtlı ve değişmeyen bilgilerim olarak düşünelim

E sütununda ise ürün kodları var fakat, birden fazla tekrarı yapılmış ve karışık halde

Örnek E sütununda

ÜRÜN1
ÜRÜN1
ÜRÜN1
ÜRÜN3
ÜRÜN3
ÜRÜN3
ÜRÜN3
ÜRÜN3
ÜRÜN2
ÜRÜN2


Şuna ihtiyacım var.

Makro düğmesine basınca, F sütununa ürünlerin fiyatları gelsin

.................

Çok basit şekilde tekrar soracak olursam,
A sütununda ürün kodları
yanındaki B sütununda ürün fiyatları var. (BU İKİ SÜTUN KALICI BİLGİ)
Ve E sütununda yine ürün kodları var, ama birden fazla tekrarlı ve karışık haldeler. (Karışıklık önemli değil ama birden fazla tekrarlı olması zaten problemin kendisi)
Düğmeye basıldığında F sütununa ürünlerin fiyatlarının gelmesini istiyorum. Herkese kolay gelsin, saygılar sunarım.

 

[samet_can]

İşinizi görür inşaALLAH

Private Sub CommandButton1_Click()

    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-5]:C[-4],2,0)"
    Range("F1").Select
    Selection.AutoFill Destination:=Range("F1:F9"), Type:=xlFillDefault
    Range("F1:F9").Select
End Sub

 

[izcik]

Hemen deniyorum sonucu bildireceğim Samet Can uzmanım

 

[izcik]

Samet Can uzmanım, çok teşekkürler. Oldu gibi, fakat bir minik düzeltme yapmamız lazım, F9a kadar değil de , çok aşşağılara kadar taraması lazım. Yani en az 6000 satır gibi. Veya sonuna kadar (65536 satır)

Saygılar

 

[samet_can]

Rica ederim.Ayrıca uzmanım demezseniz çok memnun olurum. Aşağıda kodu paylaştım F21 yazan yeri istediğiniz gibi çoğaltabilirsiniz

ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],C1:C2,2,0),""ÜRÜNYOK"")"
    Range("F1").Select
    Selection.AutoFill Destination:=Range("F1:F21"), Type:=xlFillDefault
    Range("F1:F21").Select

 

[izcik]

Rica ederim.Ayrıca uzmanım demezseniz çok memnun olurum.

Bükemediğim bileği öpiyim diye, yani ondan şeyetmiştim

 

[samet_can]

Estafirullah, az buçuk bildiğim konu denk geldi, yoksa cahilim fazla bilgim yok.
Güzel düşüncenizden ötürü teşekkür ederim

 

[izcik]

Kıymetli arkadaşlarım, yukarıdaki sorumun bir de düşeyara formülü gibi bir formülü vardı. Rica etsem ivedilikle yazarmısınız. Aynı soru olduğu için yeni konu açıp konu kirliliği olmasın diye bu konunun altına yazdım.

 

[ÖmerBey]

Zaten yukarıdaki sorununuz Düşeyara formülü ile halledilmiş. Makroyu çalıştırdığınız zaman F1:F21 aralığına Düşeyara formülünü yazar, oradan bakabilirsiniz.

 

[izcik]

Nerede üstadım düşeyara, ben göremedim

 

[izcik]

Uzmanlarım ihtiyacım olan formülü yazar mısınız? En üstteki soruma ait olan "düşeyaralı" formülü.
.

A sütununda ürün kodları var

B sütununda bu ürünlerin fiyatları var.

E sütununda da ürün kodları var, fakat karışık halde ve birden fazlalar

İstediğim şey F sütununa formülü yazıp aşşağı çekince (kopyalayınca) , ürünlerin B sütunundaki fiyatları ne ise, onlar F sütununa gelsin. Saygılar.

 

[ÖmerBey]

F2 için formülünüzü şu şekilde deneyiniz:

=DÜŞEYARA(E[COLOR="Red"]2[/COLOR];A:B;2;0)

=EĞERHATA(DÜŞEYARA(E[COLOR="Red"]2[/COLOR];A:B;2;0);"Ürün Bulunamadı")

 

[izcik]

Üstteki formül oldu kıymetli mucit77 alttakini bile denemeden hemen teşekkür etmek istedim. Teşekkür ederim sağolun varolun
Hemen alttakini de deneyeyim

 

[ÖmerBey]

Alttaki hata olması durumunda #YOK hatası göstermesin diye: Hata olursa "Ürün Bulunamadı" yazar.

 

[izcik]

Çok teşekkür ederim hem ilginiz hem verdiğiniz doğru cevap için

 

[YUSUF44]

Yanlış cevap vermişim, dikkate almayın.

 

[izcik]

Canınız sağolsun kıymetli Yusuf44 , cevabınız hiç yansımadı. Az yardımınızı desteğinizi görmedik. Sağolun varolun