Macro kopyalama butonu hk.

[cenqawer]

Merhaba bir kopyalama komutu yazmam gerekiyor A sütünü sabit örnek kopyalama yaparken sabit olmayan alan değişse bile aynı satırdaki yeri kopyalamak istiyorum Cell komutu kullanmak gibi nasıl yapabilirim. Örnek Range("B4:I11").Select kısmını harfleri kullanmadan kopyalamak istiyorum sadece rakam belirterek . Yardım ricası ile

Sub kopyala()
'
' kopyala Makro
'

'
Range("B4:I11").Select
Selection.Copy
Sheets("Sayfa1").Select
ActiveWindow.SmallScroll Down:=6
Range("F17").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F24:M24").Select
Application.CutCopyMode = False
Range("F24:M24").Cut Destination:=Range("F23:M23")
Range("F23:M23").Select
Sheets("Günlük Rapor").Select
ActiveWindow.SmallScroll Down:=3
Range("B15:I18").Select
Selection.Copy
Sheets("Sayfa1").Select
ActiveWindow.SmallScroll Down:=6
Range("F27").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Günlük Rapor").Select
Range("C22").Select
Application.CutCopyMode = False
Selection.FillDown
End Sub

 

[PLİNT]

Merhaba
Fikir vermek açısından örnek dosyayı inceleyiniz
https://www.dosyaupload.com/cb20

Private Sub CommandButton1_Click()
x = 2
y = 9
For a = 1 To 8
Range(Cells(2, x), Cells(11, y)).Select
Range(Cells(2, x), Cells(11, y)).Copy
MsgBox Selection.Address & " Hücreleri kopyalandı"
x = x + 8
y = y + 8
Next
[B4].Select
End Sub

 

[cenqawer]

bu şekilde hepsini tek tek geziyor bende her gün farklı bir günü alıyorum sayfa kaysa bile o an sabit kalan günü kopyalasın istiyorum çünkü diğer sayfayı hergün mail atıyorum

 

[cenqawer]

Fikir için teşekkürler bu arada şimdi o örnekte benim her güne bir buton yapmam gerekiyor buda çok uzun sürer saatlerce uğraşmam gerekecek tek bir buton ile sağa kaydırdığımda sabit kalan günü kopyalayıp diğer sayfaya yapıştırsa on numara olacak

 

[PLİNT]

Merhaba
Bir örnek dosya üzerinde nasıl yapmak istediğinizi anlatırsanız daha kolay olur
Ben varsayım ile eski bir dosyanız üzerinde yapmaya çalıştım "msgbox" yerine yapıştırılacak adresi yazarsınız diye düşünmüştüm
ek dosyadada 1. satırdan("b1" veya "j1" gibi) kopyalanacak tarih hücresini tıklayarak deneyin
Sheets("Sayfa2") adını dosyanızdaki sayfa adıyla değiştirirsiniz.

https://www.dosyaupload.com/gneS

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 1 Then Exit Sub
x = Target.Column
y = x + 7

Range(Cells(2, x), Cells(11, y)).Select
Range(Cells(2, x), Cells(11, y)).Copy Sheets("Sayfa2").Range("B2")

Application.CutCopyMode = False
Sheets("Sayfa2").Activate
End Sub

 

[cenqawer]

aslında benim elimdeki veri dosyası çok kapsamlı ama boş hali yok şu an elimde sizin örnekten tarif edebilirim inşallah çözerseniz çok sevinirim benim tek niyetim 2. sayfaya her gün bir günü kopyalamak bir düğme ile olabilir veya kopyalamak yerine sadece istediğim günü 2. sayfaya yansıtmak kopyalamak o sayfayı mail gönderme sayfası olarak kullanıcam (ilk sayfadaki istediğim 1 günü diğer sayfaya kopyalama ama bunu her gün yapıyorum

 

[PLİNT]

Dosyanızı indirme imkanım yok ama son mesajınıza göre ek dosyayı inceleyin,"combobox" tan seçilen tarihe ait tabloyu kopyalayacaktır
https://www.dosyaupload.com/cbbl

 

[cenqawer]

Sen varya adamsınya işte istediğim bu kardeş çok sağol tek yapmam gereken kendi excelime uyarlamak bakalım inşallah yazdığın cellleri çözer uygularım kendime bi deniycem

 

[cenqawer]

Bu artı 7 olan yer sağa doğru seçim sutun sayısı aşağıya doğru 23 sutunu seçmesini istiyorum ama hangisi yardımcı olurmusun.

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Exit Sub
Dim x As Long, y As Long, ara As Range
Set ara = Range(Cells(1, 2), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 10)).Find(DateValue(ComboBox1.Text), , xlFormulas, xlWhole)
[B2].Select
If Not ara Is Nothing Then
x = ara.Column
y = x + 7
Range(Cells(2, x), Cells(11, y)).Copy Sheets("Sayfa2").Range("B2")
Sheets("Sayfa2").Activate
End If
End Sub


Private Sub ComboBox1_DropButtonClick()
'If ComboBox1 <> "" Then Exit Sub
Dim a As Long
ComboBox1.Clear
For a = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, a) <> "" Then
ComboBox1.AddItem Cells(1, a).Text
End If
Next
End Sub

 

[cenqawer]

Range(Cells(2, x), Cells(23, y)). bu kısımda aşağıya doğru olan yermiş vallahi kafayı yiyecektim en sonunda istediğim tabloyu yaptım çok teşekkür ederim