- Katılım
- 4 Mayıs 2013
- Mesajlar
- 86
- Excel Vers. ve Dili
- office 2010
Üstad ihtiyacımdan dolayı flitreli veriyi kopyalama yapıştırma makrosu aradım durdum baktım ki birçok arkadaşımızda bu konudan müzdarip bende elimdeki kodu paylaşmak hemde bir konu hakkında sizden bilgi almak istiyorum.
Sub CopyFilteredCells()
'Updateby20150203
Dim rng1 As Range
Dim rng2 As Range
Dim InputRng As Range
Dim OutRng As Range
xTitleId = "FİLİTRELİ VERİYİ KOPYALA YAPIŞTIR"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste Range:", xTitleId, Type:=8)
For Each rng1 In InputRng
rng1.Copy
For Each rng2 In OutRng
If rng2.EntireRow.RowHeight > 0 Then
rng2.PasteSpecial
Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
Exit For
End If
Next
Next
Application.CutCopyMode = False
End Sub
bu makro değer olarak kaydetmiyor DEĞER olarak kaydetmeyi nasıl sağlıyabiliriz.
Sub CopyFilteredCells()
'Updateby20150203
Dim rng1 As Range
Dim rng2 As Range
Dim InputRng As Range
Dim OutRng As Range
xTitleId = "FİLİTRELİ VERİYİ KOPYALA YAPIŞTIR"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste Range:", xTitleId, Type:=8)
For Each rng1 In InputRng
rng1.Copy
For Each rng2 In OutRng
If rng2.EntireRow.RowHeight > 0 Then
rng2.PasteSpecial
Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
Exit For
End If
Next
Next
Application.CutCopyMode = False
End Sub
bu makro değer olarak kaydetmiyor DEĞER olarak kaydetmeyi nasıl sağlıyabiliriz.