firmayı da yazdırma

[atak05]

kırmızı sütüna firma ismini yazdıramadım yardım ederseniz sevinirim dosya ekte.

 

[Korhan Ayhan]

Selamlar,

Zaten DÜŞEYARA formülünü kullanarak birim fiyatları almışsınız. Yine aynı formülü kullanarak firma bilgisinide alabilirsiniz.

L5 hücresine uygulayın.

=EĞER(EYOKSA(DÜŞEYARA($H5;$B$3:$E$65536;4;0));"";DÜŞEYARA($H5;$B$3:$E$65536;4;0))

 

[usubaykan]

Merhaba,

Alternatif olarak aşağıdaki kodu da deneyebilirsiniz.

Option Explicit
Sub Bul()
Dim Bul As Object, U As Long
Range("I5:I65536", "L5:L65536").ClearContents
For U = 5 To [H65536].End(3).Row
Set Bul = Cells.Find(Cells(U, "H"), LookAt:=xlWhole)
If Not Bul Is Nothing Then
Cells(U, "I") = Cells(Bul.Row, "C")
Cells(U, "L") = Cells(Bul.Row, "E")
End If
Next
MsgBox "İşleminiz gerçekleştirilmiştir.", vbInformation, "Subaykan"
End Sub

 

[İhsan Tank]

bir alternatifde benden

=DÜŞEYARA($H5;$B$3:$E$14;4;0)

eki inceleyiniz

 

[atak05]

hepinize teşekkür ederim arkadaşlar.