Merhaba arkadaşlar.
Öncelikle bu güzel bilgi dolu sayfalar için teşekkürlerimi sunarım.
Aşağıdaki kodlarla aynı dosya içerisinde şunu yapıyorum.
Aktif olan dosyanın aktif olan sayfasındaki c10 hücresini kopyalıyorum. Havuz sayfasına gidip arama yapıp hafızadaki c10da bulunan değeri arayıp buluyorum. PGiriş sayfasına dönüp aktarmak istediğim hücreleri seçip, tekrar Havuz sayfasına gelip az önce bulduğum hücreden itibaren değerleri yapıştırıyorum. Bu işlemlerde problem yok.
Şunu yapmak istiyorum.
PGiriş sayfasının ayrı bir dosyada, Havuz sayfasının ayrı bir dosyada olması gerekiyor. Bu durumda aşağıdaki kodda yapacağım düzenleme ne olmalıdır.
Makrolarla ilgili başlangıç seviyesindeyim. Bu seviyeye gelmemde de bu forumun katkısı büyük. Verebileceğiniz örnekler üzerinden çözüm bulmaya çalışabilirim.
...
Sub kopyala()
'
' kopyala Makro
'
'
Range("C10").Select
Selection.Copy
Sheets("Havuz").Select
Cells.Find(What:=Sheets("PGiriş").Range("C10").Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Sheets("PGiriş").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Havuz").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PGiriş").Select
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C151")
Range("C10:C151").Select
Range("D16").Select
End Sub
Öncelikle bu güzel bilgi dolu sayfalar için teşekkürlerimi sunarım.
Aşağıdaki kodlarla aynı dosya içerisinde şunu yapıyorum.
Aktif olan dosyanın aktif olan sayfasındaki c10 hücresini kopyalıyorum. Havuz sayfasına gidip arama yapıp hafızadaki c10da bulunan değeri arayıp buluyorum. PGiriş sayfasına dönüp aktarmak istediğim hücreleri seçip, tekrar Havuz sayfasına gelip az önce bulduğum hücreden itibaren değerleri yapıştırıyorum. Bu işlemlerde problem yok.
Şunu yapmak istiyorum.
PGiriş sayfasının ayrı bir dosyada, Havuz sayfasının ayrı bir dosyada olması gerekiyor. Bu durumda aşağıdaki kodda yapacağım düzenleme ne olmalıdır.
Makrolarla ilgili başlangıç seviyesindeyim. Bu seviyeye gelmemde de bu forumun katkısı büyük. Verebileceğiniz örnekler üzerinden çözüm bulmaya çalışabilirim.
...
Sub kopyala()
'
' kopyala Makro
'
'
Range("C10").Select
Selection.Copy
Sheets("Havuz").Select
Cells.Find(What:=Sheets("PGiriş").Range("C10").Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Sheets("PGiriş").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Havuz").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PGiriş").Select
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C151")
Range("C10:C151").Select
Range("D16").Select
End Sub