Makro İle Değerleri Kopyala

[ormann]

İyi günler ekli dosyada veri sayfasındaki A2:M500 arasındaki hücre içerisindeki verileri (sadece değerleri) makro ile liste sayfasına nasıl yapıştırabiliriz . (Yapıştırmadan önce verilerinizi kopyalamak istiyor musunuz ,eveti seçersek verileriniz kopyalandı.Hayırı seçersek verileri kopyalamaktan vazgeçtiniz diye bir uyarı verilebilir mi .Yardımcı olur musunuz ?

http://dosya.co/xdh9wjnon520/DİKİLİ_VERİM_YÜZDESİ.xlsm.html

 

[Orion1]

Buyurun.
Liste sayfasında her kopyalandığında en alta kopyalanır.

Sub verierikaydet59()
Dim sonsat As Long, sonsat2 As Long
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Veri")
Set s2 = Sheets("Liste")
sonsat = s1.Cells(Rows.Count, "A").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = False
s1.Range("A2:M" & sonsat).Copy
s2.Range("A" & sonsat2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ormann]

Çok teşekkür ederim.Verileri kopyalamadan önce Verilerinizi Kopyalamak İstiyor musunuz diye bir uyarı verilebilir mi?. Eveti seçersek veriler kopyalandı.Hayırı Seçersek Veriler Kopyalanmadı.Şeklinde

 

[Orion1]

Çok teşekkür ederim.Verileri kopyalamadan önce Verilerinizi Kopyalamak İstiyor musunuz diye bir uyarı verilebilir mi?. Eveti seçersek veriler kopyalandı.Hayırı Seçersek Veriler Kopyalanmadı.Şeklinde

Buyurun.

Sub verierikaydet59()
Dim sonsat As Long, sonsat2 As Long
Dim s1 As Worksheet, s2 As Worksheet
If MsgBox("Verileri kopyalamak istiyormusunuz?", vbYesNo, "KOPYALA") = vbNo Then
    MsgBox "Veriler kopyalanmadı!", vbCritical, Application.UserName
    Exit Sub
End If
Set s1 = Sheets("Veri")
Set s2 = Sheets("Liste")
sonsat = s1.Cells(Rows.Count, "A").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = False
s1.Range("A2:M" & sonsat).Copy
s2.Range("A" & sonsat2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ormann]

Çok teşekkür ederim

 

[Orion1]

Çok teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[ormann]

Sayın hocam tekrar sizi rahatsız ettiğim için özür diliyorum.Liste sayfasında her kopyalandığında en alta kopyalama işlemi olmasa üzerine yazsa.Kodu o şekilde revize edebilir misiniz

 

[Orion1]

Sayın hocam tekrar sizi rahatsız ettiğim için özür diliyorum.Liste sayfasında her kopyalandığında en alta kopyalama işlemi olmasa üzerine yazsa.Kodu o şekilde revize edebilir misiniz

Buyurun.

Sub verierikaydet59()
Dim sonsat As Long, sonsat2 As Long
Dim s1 As Worksheet, s2 As Worksheet
If MsgBox("Verileri kopyalamak istiyormusunuz?", vbYesNo, "KOPYALA") = vbNo Then
    MsgBox "Veriler kopyalanmadı!", vbCritical, Application.UserName
    Exit Sub
End If
Set s1 = Sheets("Veri")
Set s2 = Sheets("Liste")
sonsat = s1.Cells(Rows.Count, "A").End(xlUp).Row
'sonsat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row + 1
s2.Range("A2:M" & Rows.Count).ClearContents
Application.ScreenUpdating = False
s1.Range("A2:M" & sonsat).Copy
s2.Range("A2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[hb3102]

Merhaba Sayın Orion1
Benim bir sorum olacak müsadenizle
Örneğin sipariş diye bir excel dosyanız var
Bu excel dosyasında veri girişi diye bir sayfa var
d2 ile d20 hücreleri ne firma bilgisi giriliyor.
Ayrıca Firma bilgisi diye bir sayfa var
benim istediğim d2 ile d20 hücrelerine veri girişi yaptığım zaman
firma bilgileri sayfasından örneğin d2 hücresine ÖRNEK yazdım
d2 hücresine yazdığım ÖRNEK ile başlayan firmayı firma bilgileri sayfasından bulup d2
hücresine yazmasını istiyorum.
Selamlar

 

[Orion1]

Merhaba Sayın Orion1
Benim bir sorum olacak müsadenizle
Örneğin sipariş diye bir excel dosyanız var
Bu excel dosyasında veri girişi diye bir sayfa var
d2 ile d20 hücreleri ne firma bilgisi giriliyor.
Ayrıca Firma bilgisi diye bir sayfa var
benim istediğim d2 ile d20 hücrelerine veri girişi yaptığım zaman
firma bilgileri sayfasından örneğin d2 hücresine ÖRNEK yazdım
d2 hücresine yazdığım ÖRNEK ile başlayan firmayı firma bilgileri sayfasından bulup d2
hücresine yazmasını istiyorum.
Selamlar

Bu konu kapandı.
Siz yeni bir konu için yeni bir başlık açınız.Örnek dosyanızıda yüklerseniz iyi olur.

 

[ormann]

Sayın Hocam iyi günler;kod çok güzel çalışıyor.Fakat şöyle bir sorun var.Kopyalama yaptıktan sonra bir önceki kopyaladığım silinmiyor.Örneğin önceki kopyaladığım 10 satır.Şimdiki kopyaladığım 8 satır.8 satırda değişiklik oluyor.fakat kalan 2 satır orada kalıyor.Bununda değişmesini nasıl sağlayabiliriz ?

 

[ormann]

Hocam özür diliyorum.Ben yanlış görmüşüm .Makro zaten o işlemi yapıyor