Sayfadan sayfaya aktarma

[Yesilyurtlu]

Sayfa1de D3500 sütununda bulunan adları "ama sadece adları kenar çizgilerini değil" Sayfa2 de B1:b500 e aktarmak istiyorum.

Bu konuda yardımcı olabilir misiniz?

 

[İhsan Tank]

Sayfa1de D3500 sütununda bulunan adları "ama sadece adları kenar çizgilerini değil" Sayfa2 de B1:b500 e aktarmak istiyorum.

Bu konuda yardımcı olabilir misiniz?

merhaba

Sub aktar()
Dim a As Long
a = Sheets("Sayfa1").Cells(65536, "C").End(xlUp).Row
For i = 3 To a
Cells(i, "B") = Sheets("Sayfa1").Range("C" & i).Value
Next i
Range("B1:B2").ClearContents
MsgBox "Aktarım Yapıldı", vbInformation
End Sub

bu işinizi görür mü_?

 

[Emir Hüseyin Çoban]

Sayfa1de D3500 sütununda bulunan adları "ama sadece adları kenar çizgilerini değil" Sayfa2 de B1:b500 e aktarmak istiyorum.

Bu konuda yardımcı olabilir misiniz?

Merhaba, D3: D500 arası, B1:B500 aralığına aktarılacak. Başlangıç sanırım B3 olmalı.

Altarnatif olarak aşağıdaki kodları kullanabilirsiniz.

Sub aktar_2()
    Range("d3:d500").Copy
    Sheets("Sayfa2").Range("b3:b500").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[Yesilyurtlu]

İhsan Abi işimi gördü de aktardığı sayfanın 3 üncü satırına değil de 1 inci satırından itibaren aktarabilir mi?

 

[Yesilyurtlu]

Hüseyin abi sizin formül sanırım aynı sayfada işlemi aktarıyor.
Sayfa1 de ki D3 sütunundan itibaren
Sayfa2 de ki B1 sütununa aktaracak

 

[Emir Hüseyin Çoban]

Hüseyin abi sizin formül sanırım aynı sayfada işlemi aktarıyor.
Sayfa1 de ki D3 sütunundan itibaren
Sayfa2 de ki B1 sütununa aktaracak

Kodları Sayfa1 deyken çalıştırmalısınız.
veya kodları aşağıdaki gibi değiştirmelisiniz.

Sub aktar_2()
    Sheets("Sayfa1").Range("d3:d500").Copy
    Sheets("Sayfa2").Range("b1:b500").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[Yesilyurtlu]

ÜStadım Sorunu hallettim.
Yardımlarını esirgemeyen
İhsan Tank
huseyincoban
Üstadlarıma Teşekkür Ederim

 

[İhsan Tank]

İhsan Abi işimi gördü de aktardığı sayfanın 3 üncü satırına değil de 1 inci satırından itibaren aktarabilir mi?

buyur buda 1 satırdan itibaren sayfa2'ye listeliyor

Sub aktar()
Dim a As Long, b As Long
b = 1
For a = 3 To Sheets("Sayfa1").Cells(65536, "C").End(xlUp).Row
Cells(b, "B") = Sheets("Sayfa1").Cells(a, "C")
b = b + 1
Next a
MsgBox "Aktarım Yapıldı", vbInformation
End Sub