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

Katılım
3 Ağustos 2017
Mesajlar
7
Beğeniler
0
Excel Vers. ve Dili
2008
#1
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
 
Katılım
8 Mart 2011
Mesajlar
13,048
Beğeniler
745
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#2
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.
.
 
Üst