- Katılım
- 19 Mayıs 2006
- Mesajlar
- 32
- Excel Vers. ve Dili
- Microsoft Office Excel 2003 / 2007 /2016 Türkçe
Merhaba;
Sayın Korhan Ayhan Bey'in bir konuda verdiği cevap için yazdığı kodu kendi çalışmama nasıl uyarlayabilirim.?
Sub TEST()
Son = Cells(Rows.Count, "A").End(3).Row
Range("B2").FormulaR1C1 = "=VLOOKUP(RC[-1],Sayfa2!C1:C3,2,0)"
Range("C2").FormulaR1C1 = "=VLOOKUP(RC[-2],Sayfa2!C1:C3,3,0)"
Range("B2:C2").AutoFill Destination:=Range("B2:C" & Son)
End Sub
Bu formülü sadece bir sayfada yani başka sayfadan veri almadan formüllerin kendi sayfasında B hücresinde metin veya sayı olduğunda A,J,K,L sütünlarında bulunun formülleri aşağı doğru nasıl uygulatabiliriz.
Benim çalışmamda formüller A2;J2;K2;L2 sütünlarında bulunuyor.
Sayın Korhan Ayhan Bey'in bir konuda verdiği cevap için yazdığı kodu kendi çalışmama nasıl uyarlayabilirim.?
Sub TEST()
Son = Cells(Rows.Count, "A").End(3).Row
Range("B2").FormulaR1C1 = "=VLOOKUP(RC[-1],Sayfa2!C1:C3,2,0)"
Range("C2").FormulaR1C1 = "=VLOOKUP(RC[-2],Sayfa2!C1:C3,3,0)"
Range("B2:C2").AutoFill Destination:=Range("B2:C" & Son)
End Sub
Bu formülü sadece bir sayfada yani başka sayfadan veri almadan formüllerin kendi sayfasında B hücresinde metin veya sayı olduğunda A,J,K,L sütünlarında bulunun formülleri aşağı doğru nasıl uygulatabiliriz.
Benim çalışmamda formüller A2;J2;K2;L2 sütünlarında bulunuyor.