düşey ara bul karşılık gelenleri tek hücreye yaz

[asi_kral]

aynen üstad en başında da her iki sutun da aratıp karşılıklarını getirmek istiyordum fakat tam anlaşılır olmadı sanırım.ilginize teşekürler güzel bir takip dosyası oluşturyp paylaşmak istediğimden yordum sizleride saolun..

Şimdi şöyle yapalım. Hangi dosya olacak. Onunla başlıyalım son şöyle sorayım
G5 ve H5 hücresinde de veri olursa ne olacak hangisini kaale alacağız.
Açıklamalar net olursa tek makro ile işinizi çözmeye çalışacağım. Konu uzamadan.

 

[komodor_82]

Şimdi şöyle yapalım. Hangi dosya olacak. Onunla başlıyalım son şöyle sorayım
G5 ve H5 hücresinde de veri olursa ne olacak hangisini kaale alacağız.
Açıklamalar net olursa tek makro ile işinizi çözmeye çalışacağım. Konu uzamadan.

evet ustad kısaca şöyle a3 hücresini g ve h sutununda aratıp b3 hücresine karşılık gelen kasa kodlarını c3 e ise karşılık gelen toplam adeti yazdıra bilecek bir makro olabilirmi üstad.

 

[asi_kral]

evet ustad kısaca şöyle a3 hücresini g ve h sutununda aratıp b3 hücresine karşılık gelen kasa kodlarını c3 e ise karşılık gelen toplam adeti yazdıra bilecek bir makro olabilirmi üstad.

Bir soru daha sordum ona da yanıt verirseniz_?
İkisindede aynı veri olursa ne olacak. Hem G hücresinde Hemde H hücresinde aynı veri olduğunda nasıl olacak gene üst üste mi toplayacak.

 

[komodor_82]

Bir soru daha sordum ona da yanıt verirseniz_?
İkisindede aynı veri olursa ne olacak. Hem G hücresinde Hemde H hücresinde aynı veri olduğunda nasıl olacak gene üst üste mi toplayacak.

pardon hocam evet üst üste toplam olucak ama öyle bir koşula gerek yok sanırım..

 

[asi_kral]

pardon hocam evet üst üste toplam olucak ama öyle bir koşula gerek yok sanırım..

Merhaba
Kodu bununla değiştirip dener misiniz_?

Option Explicit
Sub bul_birleştir_1967()
'Konu       :   Bulunan Değerin Karşılıklarını Birleştir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Range, kral As Variant
Range("B3:C3").ClearContents
Set asi = Range("G:H").Find(Range("A3"), , , xlWhole)
kral = asi.Address
Do
If Range("B3") = Empty Then
Range("B3") = Cells(asi.Row, "F")
Else
Range("B3") = Range("B3") & vbLf & Cells(asi.Row, "F")
End If
Range("C3") = Range("C3") + Cells(asi.Row, "E")
Set asi = Range("G:H").FindNext(asi)
Loop While Not asi Is Nothing And asi.Address <> kral
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

M verisi her iki sütundada var
Dosyanız Ekte.

 

[komodor_82]

Merhaba
Kodu bununla değiştirip dener misiniz_?

Option Explicit
Sub bul_birleştir_1967()
'Konu       :   Bulunan Değerin Karşılıklarını Birleştir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Range, kral As Variant
Range("B3:C3").ClearContents
Set asi = Range("G:H").Find(Range("A3"), , , xlWhole)
kral = asi.Address
Do
If Range("B3") = Empty Then
Range("B3") = Cells(asi.Row, "F")
Else
Range("B3") = Range("B3") & vbLf & Cells(asi.Row, "F")
End If
Range("C3") = Range("C3") + Cells(asi.Row, "E")
Set asi = Range("G:H").FindNext(asi)
Loop While Not asi Is Nothing And asi.Address <> kral
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

M verisi her iki sütundada var
Dosyanız Ekte.

teşekürler şıkır şıkır çalışıyr eme ginize sağlık...

 

[asi_kral]

teşekürler şıkır şıkır çalışıyr eme ginize sağlık...

Kolay Gelsin.