Başka Sayfaya Veri Gönderme

[welqmx]

Herkese Merhaba.

Bir sayfadan başka bir sayfaya veri gönderirken, bu verinin gönderilen sayfada istenilen yerde, yani gönderen sayfada ki bir tarihi kullanarak bunu gönderilen sayfada o tarihi bulup altına yazabilir mi ?
uğraştım fakat gönderebiliyorum ama istediğim yere gitmiyor.

bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim
örnek dosya ektedir.

MESELA BÖYLE YAZARSAM
Sheets("20.07.2013").Select
Range("C4:C16").Select
Selection.Copy
Sheets("ICMAL").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E3").Select

Sheets("21.07.2013").Select
Range("C4:C16").Select
Selection.Copy
Sheets("ICMAL").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F3").Select

Sheets("22.07.2013").Select
Range("C4:C16").Select
Selection.Copy
Sheets("ICMAL").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G3").Select

ÇOK MANUAL OLUYOR.

 

[mancubus]

kodları buraya kopyaladıktan sonra tamamını tarayarak mesaj panelindeki # butonuna tıklayınız. böyle olunca kodlar aşağıdaki gibi görüntülenecektir.



sayfadaki düğmenin üstüne sağ tıklayarak makro ata'dan makronun ismini seçiniz.

bu sayfayı kopyalayarak yeni tarih sayfalarını oluşturabilirsiniz.

Sub ilgili_tarih_sütununa_kopyala()

    Dim sütunNo As Long
    
    With ActiveSheet
        sütunNo = Application.Match(.Range("C3"), Sheets("ICMAL").Range("A2:NB2"), 0) 'yıldaki 366 gün için 366 sayfa olacağı varsayılarak
        Sheets("ICMAL").Cells(3, sütunNo).Resize(13, 1).Value = .Range("C4:C16").Value 'C4:C16 13 satır ve 1 sütun olduğundan
    End With

End Sub

sayfanın C3 hücresindeki tarih ICMAL'in 2. satırında bulunmaz ise kod hata üretecektir.

 

[welqmx]

Teşekkür ederim

Çok Çok teşekkür ederim

zaman ayırıp benı bir dertten kurtardınız. hakkınızı helal edin.

mutlu kalın

 

[mancubus]

rica ederim. işe yaradığına sevindim.