sayfalar arasi veri aktarma

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Deneyiniz.
Kod:
Sub bulyaz()
Dim S1 As Worksheet, S2 As Worksheet, yaz As Range: Dim i As Integer
    Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
    son1 = S1.Cells(65355, "C").End(3).Row: Son2 = S2.Cells(65355, "A").End(3).Row
    S2.Range("B1:U" & Rows.Count).Cells.ClearContents
    Set yaz = S2.Range("A1:A" & Son2).Find(S1.Range("A1"), , , xlWhole)
     If Not yaz Is Nothing Then
    End If
    a = yaz.Row
    For i = 1 To son1
   S2.Cells(a, i + 1) = S1.Cells(i, 3)
     Next i
MsgBox "İŞLEM TAMAMLANDI", vbInformation
End Sub
 
Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
Deneyiniz.
Kod:
Sub bulyaz()
Dim S1 As Worksheet, S2 As Worksheet, yaz As Range: Dim i As Integer
    Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
    son1 = S1.Cells(65355, "C").End(3).Row: Son2 = S2.Cells(65355, "A").End(3).Row
    S2.Range("B1:U" & Rows.Count).Cells.ClearContents
    Set yaz = S2.Range("A1:A" & Son2).Find(S1.Range("A1"), , , xlWhole)
     If Not yaz Is Nothing Then
    End If
    a = yaz.Row
    For i = 1 To son1
   S2.Cells(a, i + 1) = S1.Cells(i, 3)
     Next i
MsgBox "İŞLEM TAMAMLANDI", vbInformation
End Sub
teşekkürler hocam, eline sağlık.
bunu kolon harfleri şeklinde yapmak mümkün mü sayfa1de C4:C25 arasi kopyalansin sayfa2 de EU:FH arasina yapıştirsin gibi
 
Son düzenleme:
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Harf seçinini isteğinize göre ayarlayın( Ben B sütunundan başlattım)
Kod:
Sub bulyaz()
Application.ScreenUpdating = False
Dim S1 As Worksheet, S2 As Worksheet, yaz As Range: Dim i As Integer
    Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
    son1 = S1.Cells(65355, "C").End(3).Row: Son2 = S2.Cells(65355, "A").End(3).Row
    S2.Range("B1:U" & Rows.Count).Cells.ClearContents
    Set yaz = S2.Range("A1:A" & Son2).Find(S1.Range("A1"), , , xlWhole)
     If Not yaz Is Nothing Then
    End If
    a = yaz.Row
  S1.Range("C1:C" & son1).Copy
  S2.Select
  S2.Range("B" & a).Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    S2.Range("A1").Select
    S1.Select
  S1.Range("A1").Select
   MsgBox "İŞLEM TAMAMLANDI", vbInformation
 Application.ScreenUpdating = True
End Sub
 
Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
hocam yapıştırınca B den sonsuza gidiyor ve sonraki verileri siliyor buna sınır koyabilirmiyiz.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
hocam yapıştırınca B den sonsuza gidiyor ve sonraki verileri siliyor buna sınır koyabilirmiyiz.
Sayfa1 C sütunundaki verileri kopyalar ve B sütunundan itibaren yapıştırır.Kopyalama sınırlı ise yapıştırmaya sınır koyalım.Aksi halde eksik veri kopyalanmış olmaz mı?
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayın yNsr43
S1.Range("C1:C" & son1).Copy 'i
S1.Range("C7:C80").Copy 'olarak değiştirin
 
Üst