• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
3 Ağustos 2017
Mesajlar
6
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
 
Üst