Veri Aktarma

[1Al2Ver]

Merhabalar,

1)Liste(I) isimli sayfamda AN4:AW16 aralığındaki verilerin,
Liste(II) isimli sayfamdaki AN26:AN40 aralığına, ((Liste(I) sayfasındaki AN4:AW16 aralığındaki verileri silmeden)) aktarılmasını,

2) Aktarılan verilerin, aktarıldığının belli olması maksadıyla açık gri renge bürünmesini,

Şayet mümkün ise her 2 isteğe ait makroları ayrı ayrı rica ediyorum.

Not ; Liste(I) isimli sayfamda AN4:AW16 aralığındaki veriler biz çizelge içerisindedir, çizelgenin çizgilerini aktarmak istemiyorum.

Teşekkür ederim.

 

[Halit TÜRK]

Merhabalar,

1)Liste(I) isimli sayfamda AN4:AW16 aralığındaki verilerin,
Liste(II) isimli sayfamdaki AN26:AN40 aralığına, ((Liste(I) sayfasındaki AN4:AW16 aralığındaki verileri silmeden)) aktarılmasını,

2) Aktarılan verilerin, aktarıldığının belli olması maksadıyla açık gri renge bürünmesini,

Şayet mümkün ise her 2 isteğe ait makroları ayrı ayrı rica ediyorum.

Not ; Liste(I) isimli sayfamda AN4:AW16 aralığındaki veriler biz çizelge içerisindedir, çizelgenin çizgilerini aktarmak istemiyorum.

Teşekkür ederim.

Merhabalar.

AN26:AN40 yerine AN26:AW38 olacak galiba, denermisiniz..

Not: Sayfa isimlerini düzeltiniz.!
Birde aktarıldığını anlamak için msgbox kullanmak daha iyi değilmidir?

Sub Aktar()
    
    Sheets("Sayfa1").Range("AN4:AW16").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("AN26:AW38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sayfa1").Select
    Selection.Font.ColorIndex = 16
End Sub

 

[Orion1]

Alternatif

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("AN26:AW38").Value = s1.Range("AN4:AW16").Value
s1.Range("AN4:AW16").Interior.ColorIndex = 6
End Sub

 

[1Al2Ver]

Merhabalar.

AN26:AN40 yerine AN26:AW40 olacak galiba, denermisiniz..

Not: Sayfa isimlerini düzeltiniz.!
Birde aktarıldığını anlamak için msgbox kullanmak daha iyi değilmidir?

Sub Aktar()
    
    Sheets("Sayfa1").Range("AN4:AW16").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("AN26:AW40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sayfa1").Select
    Selection.Font.ColorIndex = 16
End Sub

Sayın Halit TÜRK, merhaba

Cevap ve dikkatiniz için teşekkür ederim,

Önerdiğiniz üzere sayfa isimlerini değiştirdim,

Ancak hem hata 400 mesajı aldım, hem de veriler istenen sayfaya gelmedi,

Aktarma esnasında yada aktarma bitince bir mesaj akmak hoş olur tabiki,

Teşekkür ederim, saygılarımla.

 

[Halit TÜRK]

Aşağıdaki gibi de kullanabilirsiniz..

Sub aktar()
Sheets("Sayfa2").Range("AN26:AW38").Value = Sheets("Sayfa1").Range("AN4:AW16").Value
MsgBox "Aktarıldı"
End Sub

 

[1Al2Ver]

Alternatif

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("AN26:AW38").Value = s1.Range("AN4:AW16").Value
s1.Range("AN4:AW16").Interior.ColorIndex = 6
End Sub

Sayın Evren Gizlen, merhaba

Öncelikle alternatif ve nezaketiniz için teşekkür ederim,

Bu kodla aktarılan verilerin ilgili bölümleri sarı olmakta, veri aktardığımız yerin (AN26:AW38) sarı olmasını isteseydik kodda ne gibi bir değişiklik gerekecekti?

Teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Aşağıdaki gibi de kullanabilirsiniz..

Sub aktar()
Sheets("Sayfa2").Range("AN26:AW38").Value = Sheets("Sayfa1").Range("AN4:AW16").Value
MsgBox "Aktarıldı"
End Sub

Sayın Halit TÜRK, merhaba

Çözüm için teşekkür ederim, saygılarımla.

 

[Halit TÜRK]

Alternatif

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("AN26:AW38").Value = s1.Range("AN4:AW16").Value
[color=red]s1.Range("AN4:AW16").Interior.ColorIndex = 6[/color]
End Sub

Rica ederim..

Bu kodla aktarılan verilerin ilgili bölümleri sarı olmakta, veri aktardığımız yerin (AN26:AW38) sarı olmasını isteseydik kodda ne gibi bir değişiklik gerekecekti?

Evren beyin kodunda kırmızı satırı aşağıdaki kod ile değiştirirseniz istediğiniz olacaktır..

s2.Range("AN26:AW38").Interior.ColorIndex = 6

 

[1Al2Ver]

Evren beyin kodunda kırmızı satırı aşağıdaki kod ile değiştirirseniz istediğiniz olacaktır..

s2.Range("AN26:AW38").Interior.ColorIndex = 6

Sayın Halit TÜRK, tekrar merhaba,

Cevap için teşekkür ederim, sağolun.