• 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
 
Katılım
8 Mart 2011
Mesajlar
12,052
Beğeniler
340
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