Farkli Bİr Kopyala YapiŞtir Makrosu.

[bülent123456bülent]

Merhaba Arkadaşlar,
Ekteki dosyada SAYFA 2 deki başlama tarihi (20.12.2006) ve bitiş tarihine (21.12.2006) yazıyoruz. Bunları sürekli değiştirebiliyoruz.
Ekteki dosyada SAYFA 2 de ki KOPYALA YAPIŞTIR butonuna bastığım zaman VERİ DEPOSU sayfasında A sütununda başlama tarihi ve bitiş tarihi arasındaki verileri (başlam tarihi ve bitiş tarih dahil) seçsin ama yanındaki B, C, D, E sütunlarındaki verileride secsin. ve bu verileri Sayfa 1 deki A3 hücresi aktif hale gelsin ve verilerin sadece değerleri buraya yapışsın.
sonrada SAYFA 2 C2 hücresi aktif hale gelsin.
Ben bunu manuel olarak ekteki dosyada yaptım.

Böyle bir makro yazarsanız bana çok sevinirim.
İyi günler. İyi çalışmalar...

Birde tarihler 2006.12.24 şeklinde bunları otamatikman 24.12.2006 haline getirmek mümkünü. Hücre biçimlendirmeden yapamadım. Bu yukarıdaki sorumdan bağımsız.

 

[bülent123456bülent]

Şöyle bir kod yazdım ama sanki hata var çok tekrar yapıyor.

Dosyada ekte...


Sub kopyalayapıştır()
Sheets("SAYFA 2").Select
a = Range("b2").Value
For i = 5 To 1500
Sheets("VERİ DEPOSU").Select
If Cells(i, 1).Value = Empty Then
Exit Sub
End If
If a = Cells(i, 1).Value Then
Range(Cells(i, 1), Cells(i, 5)).Copy
Sheets("sayfa1").Select
For b = 3 To 1500
If Cells(b, 1).Value = emty Then
Cells(b, 1).PasteSpecial
GoTo 1
Else
End If
Next b
End If
1:
Next i
End Sub