- Katılım
- 28 Ağustos 2013
- Mesajlar
- 19
- Excel Vers. ve Dili
- Türkçe
Merhaba Aşağıdaki Kod İle Başka Bir Hücreden Başka Bir Hücreye Veri Kopyalaması Yapıyorum. Fakat Kopyalama Yaparken Kopyalanılan Yerdeki Veriler (Sayılar) yerine Formul Bilgilerini Yapıştırıyor Nasıl Bir Düzeltme Uygulamam Gerekiyor Verileri Almak İçin
Kod:
Sub Verilerikopyala()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Günlük T.") ' Sayfa Adınıza Göre Değiştirin
If Application.CountA(ws.Range("a4:j4")) <> 0 Then
ws.Range("a4:j4").Insert Shift:=xlDown
End If
ws.Range("L1:S1").Copy ws.Range("A4")
End Sub
Son düzenleme: