bir çalışma kitabındaki tüm sayfaları tek sayfada toplulaştırma

[hsayar]

makro içindeki çalışmakitabı, sayfası, ve hücreleri değişken olarak atamak

http://www.excel.web.tr/showthread.php?t=36201
linkinde sorduğum ve kendime uyarladığm bir konu ancak buradaki çalışma kitabı, çalışma sayfası ve başlangıç hücresini resimdeki gibi almasını istiyorum

[quate]
Sub BOŞ_OLAN_SÜTUNU_SİL()
'kodu yazan cost_control,
SATIR = Val(Application.InputBox("SATIR NO GİRİNİZ !", , 23))
If SATIR = False Then
MsgBox "İŞLEM İPTAL EDİLDİ !", vbInformation
Exit Sub: End If
If SATIR = "" Then
MsgBox "HATALI SEÇİM !", vbExclamation
Exit Sub: End If
For X = 78 To 1 Step -1
If Cells(SATIR, X) = "" Or Cells(SATIR, X) = " " Then Columns(X).Delete
Next
MsgBox "bo sütunlarınız silinmiştir.", vbInformation

'-------------------------------------------------------------
'>>>hsr
'ortaya çıkan verileri başka yere kopyalayacaksak kullanılır
Range("A" & SATIR, "W" & SATIR + 24).Select
Selection.Copy
'<<<hsr
MsgBox "kopya alınacak erim seçildi.", vbInformation


' kopyalanacak yeri seç (burayı resimdeki gibi kutudan seçmek istiyorum)
Windows("SEÇİMTUTANAĞI.xls").Activate
Sheets("test").Select
'Range("A9:W33").Select
Range("A9").Select
'yapıştır
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
[/quate]

 

[Levent Menteşoğlu]

Refedit nesnesi sizin amacınızı karşılayabilir. Aşağıdaki linki inceleyin.

inputbox