Özel yapıştır-değerleri

[steppe]

Sayfa1'den Sayfa 2'ye gelen verileri Sayfa3'e her seferinde alt alta gelecek şekilde özel yapıştır-değerleri şeklinde aktarmak.Yardımlarınız için şimdiden teşekkürler.

 

[asi_kral]

Sayfa1'den Sayfa 2'ye gelen verileri Sayfa3'e her seferinde alt alta gelecek şekilde özel yapıştır-değerleri şeklinde aktarmak.Yardımlarınız için şimdiden teşekkürler.

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Private Sub CommandButton1_Click()
'Konu       :   Verileri Sayfa3'e Aktar
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim AÇ As Variant, SAT As Long
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
Set S3 = Sheets("Sayfa3")
Application.ScreenUpdating = False
S3.Range("A2:B" & Rows.Count).ClearContents
S3.Select: AÇ = ActiveCell.Address
S2.Select: SAT = S1.Range("A" & Rows.Count).End(xlUp).Row
S2.Range("A2:B" & SAT).Copy
S3.Range("A2").PasteSpecial (xlPasteValues)
S3.Select: S3.Range(AÇ).Select
S2.Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[steppe]

asi_kral_1967 Kardeş,
Yardımların için teşekkür ederim.Yalnız Sayfa2'deki kayıt değiştikçe Sayfa3'te kaldığı yerden (yani dolu satırın altındaki boş satırdan) aktarmaya devam edebilir mi?

 

[asi_kral]

asi_kral_1967 Kardeş,
Yardımların için teşekkür ederim.Yalnız Sayfa2'deki kayıt değiştikçe Sayfa3'te kaldığı yerden (yani dolu satırın altındaki boş satırdan) aktarmaya devam edebilir mi?

Ben butonlu olacak zannetmiştim. Yanlış mı anlamışım acaba
Bir de bu dosya tam olarak ne yapmak istediğinizi söylerseniz belki bu kadar sayfa kullanmanıza gerek kalmaz

 

[steppe]

Butonlu veya butonsuz farketmez.Burada sayfa1'in hiç önemi yok sadece özel yapıştır-değerleri göstermek için sayfa1'i oluşturdum.Amacım formüllü olan verileri aktarmak.Sayfa2'deki kayıt değiştikçe(3 satırda olabilir, 15 satırda,38 satırda) sayfa3'te kaldığı yerden yapıştırmaya devam etsin.

 

[asi_kral]

Butonlu veya butonsuz farketmez.Burada sayfa1'in hiç önemi yok sadece özel yapıştır-değerleri göstermek için sayfa1'i oluşturdum.Amacım formüllü olan verileri aktarmak.Sayfa2'deki kayıt değiştikçe(3 satırda olabilir, 15 satırda,38 satırda) sayfa3'te kaldığı yerden yapıştırmaya devam etsin.

yani en başından itibaren tekrardan mı aktaracak yoksa aynı veriler mi olacak_?
En iyisi siz dosya üzerinde açıklayın bir kere butona bastığınızda ne olacak 2 kere butona bastığınızda ne olacak 3 kere butona bastığınızda ne olacak ayrıntılı anlatırsanız ona göre bir kod yazalım

 

[steppe]

asi_kral_1967 Kardeş,
İlgin için teşekkür ederim.Sayfa2'deki formüllü satırlar 25 satırda olabilir 55 satırda olabilir.Yani değişken.Sayfa2'ye gelen her yeni verileri Sayfa3'e alt alta kaydedeceğiz.Örnek dosyada detaylı açıkladım.

 

[asi_kral]

asi_kral_1967 Kardeş,
İlgin için teşekkür ederim.Sayfa2'deki formüllü satırlar 25 satırda olabilir 55 satırda olabilir.Yani değişken.Sayfa2'ye gelen her yeni verileri Sayfa3'e alt alta kaydedeceğiz.Örnek dosyada detaylı açıkladım.

Üstte verdiğim makro bu işi yapıyor. Gayet güzel denemediniz sanırım.

 

[steppe]

Üstte verdiğim makro bu işi yapıyor. Gayet güzel denemediniz sanırım.

Kodu denemez olur muyum?Tabi ki denedim.Sayfa3'e yapılan kayıt 2.kez kayıt yapılınca siliniyor.Sayfa3'e kopyalanan her yeni kayıt silinmesin bir önceki kaydın altından devam etsin.