bir içerikle ilgili hücreyi taşıma

[xtravaganza]

daha önce 'makroda sıfır değerli hücrelerin dikkate alınmaması' başlığı ile sorduğum soruya '=MIN(IF(C2:H2<>0;C2:H2))' formulü ile yardımcı oldunuz fakat aynı dosyada asıl yapmak istediğim bu formülle bulunan rakamın yanındaki hücreye, asıl datadaki rakamın üzerindeki başlığı yazması.
örneğin yukarıda ürün isimleri, aşağıda da satış hasılatları varsa, hasılat satırını karşılaştırıp minimumunu yazıp, yanına da ürün ismini yazmak istiyorum. bunun için bir macro yazdım ama çalışmıyor. macro bilgim çok az olduğu için neyin doğru neyin yanlış olduğunu da ayırt edemiyorum.. yardım eder misiniz?

Sub routing()
Dim Tutar As Range
Dim FirmaAdı As Range
Dim satir, sutun As Range

On Error Resume Next

Set Tutar = Sheets("Sheet1").Range("k2:k31")
Set FirmaAdı = Sheets("Sheet1").Range("j2:j31")
Set FirmaAdıAlanı = Sheets("Sheet1").Range("j2:j31")

For i = 2 To 31
Tutar = Sheets("Sheet1").Range("J" & J).Value
Set FirmaAdı = FirmaAdıAlanı.Find(FirmaAdı)
sutun = Tutar.Column
satir = Tutar.Row
Sheets("Sheet1").Cells(satir, sutun) = Sheets("Sheet1").Cells(i, 9)

Next i

End Sub

 

[Orion1]

merhaba.
Küçük bir örnek dosya yollayıp,Onun üzerinde açıklama yaparsanız dağa iyi olur.
O dosyaya verilen cevaptan yola çıkarak kendi dosyanıza uyarlayabilirsiniz.

 

[xtravaganza]

Örnek bir dosya oluşturdum. Dosyadaki Tutar kolonuna 'min' formulü ile bir değerde tanımladım. Yapmaya çalıştığım 'FIRMA' isimli G kolonuna 'TUTAR' kolonunda bulunmuş olan datanın hangi firmaya ait olduğunu bulup yazdırmak, yani C1-G1 hücreleri arasından o değere karşılık olarak gelen firma ismini taşımak. (Örnek dosyada G2 hücresi 'FIRM_3', G3 hücresi FIRM_1, G4 de FIRM_2 olacak şekilde)
Teşekkür ederim..

 

[Orion1]

Merhaba.
G2 hücresine aşağıdaki formülü yazın ve aşağı doğru kopyalayın.
Ekli dosyayı inceleyiniz.

=İNDİS($C$1:$F$1;KAÇINCI(H2;C2:F2;0))
İNDİS=INDEX
KAÇINCI=MATCH