- Katılım
- 3 Ağustos 2017
- Mesajlar
- 8
- Excel Vers. ve Dili
- 2008
- Altın Üyelik Bitiş Tarihi
- 24/11/2018
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
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