Makro İle Değişken Düşeyara Alanı Belirleme

[gulkerpicci]

Merhaba Arkadaşlar,

farklı sheetlerdeki verileri bir tablo içersinde topluyorum, ancak verilerin satır sayısı değişiyor. bu nedenle düşeyara yaparken son satırı nasıl belirlemem gerekir, sanırım for döngüsü yapmam gerek ama çok iyi bilmediğim için yardımlarınızı bekliyorum.

Range("B2").Select
ActiveCell.FormulaR1C1 = "=Sheet!RC[3]"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE((LEFT(Sheet!RC[2],6)),""******"",RIGHT(Sheet!RC[2],4))"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=Sheet!RC[8]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=Sheet!RC[-2]"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=Sheet!RC[-1]"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[7],sheet2!R1C1:R:C,4,0)"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],sheet2!R1C1:R42C6,6,0)"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[3],sheet2!R1C1:R42C7,7,0)"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],sheet2!R1C1:R42C8,8,0)"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],sheet2!R1C1:R42C5,5,0)"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],sheet2!R1C1:R42C9,9,0)"
Range("L2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'cevap kodları ve üyeişyeri bilg'!R1C1:R75C2,2,0)"
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-12],'cevap kodları ve üyeişyeri bilg'!R1C9:R21C11,3,0)"
Range("M3").Select
ActiveWindow.ScrollColumn = 1
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWindow.Zoom = 70
Selection.AutoFill Destination:=Range("A2:M51"), Type:=xlFillDefault
Range("A2:M51").Select
Range("A43:M51").Select
Selection.ClearContents
Range("A2:M42").Select
ActiveWindow.SmallScroll Down:=-30
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B12").Select
Application.CutCopyMode = False
End Sub

 

[Ömer BARAN]

Merhaba.

Aynı soru için bir'den fazla konu açmanız, forum düzeni bakımından doğru olmadığı gibi sonuca ulaşmanızı da kolaylaştırmaz.

Cevabımın altındaki İMZA bölümünü okuyarak sorunuzu örnek belge ile desteklerseniz daha hızlı sonuca ulaşabilir,
hatta alternatif cevaplar da alabilirsiniz diye düşünüyorum.
.