Sayfadan Sayfaya kopyalamada problem

[turanb]

Merhaba arkadaşlar,

Kodlar aşağıdaki gib. F8 ile tane tane işletince işlem yapıyor. Ancak butona tıkladığımda veriyi kopyalayacağı sayfaya geçip orda kalıyor işlem yapmıyor.

sorun nedir acaba yardımcı olabilir misiniz.

Private Sub CommandButton2_Click()
Set bu = Worksheets("HESAPLAMA")
Set o = Worksheets("ISKONTOCEK")

For i = 15 To [B65576].End(3).Row
    For io = 12 To o.Range("B65576").End(3).Row
        If bu.Cells(i, 2) = o.Cells(io, 2) Then
            o.Range(o.Cells(io, "e"), o.Cells(io, "h")).Copy
            bu.Cells(i, 7).PasteSpecial
        End If
    Next io
Next i
Application.CutCopyMode = False
End Sub

 

[askm]

Dosyanızı yükleyebilir misiniz.

 

[turanb]

Dosya özel bilgiler içeriyor. O yüzden paylaşamıyorum.

Kodlardan anlaşılır olması lazım.

 

[turanb]

Tamamdır arkadaşlar kodlar çalışıyor.

Kabahat bende. Kodları farklı bir butona atamışım. Boş butonu çalıştırmaya uğraşıyormuşum.

 

[bygantar]

uzun süredir aradığım kodu burada buldum. iyiki böyle bir konu açmışsınız teşekkür ediyorum. kolay gelsin

 

[antonio]

Merhaba,
Kodlarınızı aşağıdaki şekilde deneyiniz.

Private Sub CommandButton2_Click()
Set bu = Worksheets("HESAPLAMA")
Set o = Worksheets("ISKONTOCEK")

For i = 15 To [B65576].End(3).Row
    For io = 12 To o.Range("B65576").End(3).Row
        If bu.Cells(i, 2) = o.Cells(io, 2) Then
           [COLOR="Red"][B]bu.Cells(i, 7).Value = o.Range(o.Cells(io, "e"), o.Cells(io, "h")).value[/B][/COLOR]
        End If
    Next io
Next i
Application.CutCopyMode = False
End Sub