Merhaba,
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 18.11.2008 by Ozgur VAROL
'
'
ActiveWindow.SmallScroll Down:=99
Range("C144:C167").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("B187").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Sayfa2").Select
End Sub
Bu makroyu kullanıyorum fakat bu makronun b187'ye ekliyor, bir sonraki calıstırmamda b188'e ekliyor ve böyle devam ediyor. Yapmak istediğim b187 kolonundan aşşağı doğru her ekleme yaptığımda bu veriyi benim grafiğimede eklesin. Grafik veriyi ilk b187'den alıyor diyelim, üstteki makro calıstığında grafik veriyi artık b187 ve b188 den alsın ve her seferinde tekrar etsin istiyorum.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 18.11.2008 by Ozgur VAROL
'
'
ActiveWindow.SmallScroll Down:=99
Range("C144:C167").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("B187").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Sayfa2").Select
End Sub
Bu makroyu kullanıyorum fakat bu makronun b187'ye ekliyor, bir sonraki calıstırmamda b188'e ekliyor ve böyle devam ediyor. Yapmak istediğim b187 kolonundan aşşağı doğru her ekleme yaptığımda bu veriyi benim grafiğimede eklesin. Grafik veriyi ilk b187'den alıyor diyelim, üstteki makro calıstığında grafik veriyi artık b187 ve b188 den alsın ve her seferinde tekrar etsin istiyorum.