Vba ile Baska Bir sayfadan hucre sayisi bularak o hucrenin bir satirina yazi yazma

[mustafaine1]

Anlatabildim mi hic bilmiyorum arkadaslar yalniz dosyayi acarsaniz freight sheet`inde bir buton var o butonun freight sheetindeki h4 satirinda olan referansini numbers adli sheetteki a sutununda lookup la esleyerek yada bilemiyorum ne olursa hangi satirdakiyse o satirin ad kismina issue yazmasidir..

 

[Orion1]

Tamamda ad kısmı nerededir?Hangi sütundur?.

 

[Ömer]

Merhaba,

Sub Deneme()
Set S1 = Sheets("Freight")
Set S2 = Sheets("Numbers")
Set c = S2.Range("A:A").Find(S1.Range("H4"), LookIn:=xlValues)
If Not c Is Nothing Then
S2.Cells(c.Row, "AD") = "issue"
End If
End Sub

Denermisiniz..

.

 

[mustafaine1]

Evren Gizlen Bey kusura bakmayin ben cevapta gec kaldim, Omer bey cok tesekkur ederim, cok ugrasmistim bunun icin ve cok onemli bir bolgesiydi formatin elinize saglik..