verilerin değerlerini yapıştırma

[fildekoz]

Merhaba saygıdeğer arkadaşlar.

sayfa1 de A4 ile N34 hücreleri arasında biçimlendirilmiş verilerim var. bunu sayfa 2 ye sadece değerlerini yapıştırmak istiyorum. bunun için nasıl bir kod yazmam gerekiyor ?

şimdiden tşk ederim.

 

[Mahir64]

Merhaba saygıdeğer arkadaşlar.

sayfa1 de A4 ile N34 hücreleri arasında biçimlendirilmiş verilerim var. bunu sayfa 2 ye sadece değerlerini yapıştırmak istiyorum. bunun için nasıl bir kod yazmam gerekiyor ?

şimdiden tşk ederim.

Kopyala >Özel yapıştır >değerleri seçeneği işinizi görür mü?

 

[fildekoz]

hayır. makro ile yazdırmak istiyorum. işin özü şu. verdiğim aralıklarda veriler var. bir buton vasıtası ile oradaki verilerin değerlerini sayfa 2 ye yazdırmam lazım. ve butona her tıkladığımda verileri sayfa 2 deki verilerin altına ekleyecek..

 

[fildekoz]

arkadaşlar konu hakkında yardımlarınızı rıca ederim...

 

[fildekoz]

konu hakkında yardımcı olacak arkadas yok mu ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Satır = S2.Range("A65536").End(3).Row + 1
    
    If Satır + 30 > 65536 Then
        MsgBox "Sayfa2 doldu !" & Chr(10) & "Aktarım işlemi iptarl edilmiştir !", vbCritical
        Exit Sub
    Else
        S2.Range("A" & Satır & ":N" & Satır + 30).Value = S1.Range("A4:N34").Value
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    End If
 
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

 

[İhsan Tank]

konu hakkında yardımcı olacak arkadas yok mu ?

bu kodu dener misiniz

Sub değerler()
Columns("A:A").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Range("A1").Select
MsgBox "Sadece Değerler Aktarıldı", , "İhsan Tank"
End Sub

 

[fildekoz]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Satır = S2.Range("A65536").End(3).Row + 1
    
    If Satır + 30 > 65536 Then
        MsgBox "Sayfa2 doldu !" & Chr(10) & "Aktarım işlemi iptarl edilmiştir !", vbCritical
        Exit Sub
    Else
        S2.Range("A" & Satır & ":N" & Satır + 30).Value = S1.Range("A4:N34").Value
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    End If
 
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

korhan bey

yardımlarınız için tsk ederim. tam istedigim gibi olmuş. uzerinde biraz degisiklik yaparak kendi kodlarıma uyarlayacagım.

ihsan bey sizlere de desteginiz icin cok tsk ederim.