gelir-gider sheeti üzerinden modul kullarak veri taşımak.

[latimera]

üsdatlar S.A

Ekteki dosyada modul kullanarak bazı hücrelerdeki verileri diğer sheete taşımak istiyorum. fakat modul içinden çıkamadım.


Sub Aktar()

Dim Sg As Worksheet, bul As Range

Set Sg = Sheets("günlük gelir-GİDER")

Application.ScreenUpdating = False
Sheets("ekim").Select

Set bul = Rows(1).Find(Sg.Range("B6"), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sg.Range("C2:C18").Copy
Cells(2, bul.Column).PasteSpecial xlPasteValues, xlNone
Application.CutCopyMode = False
Range("B5").Select
Else
MsgBox "Tarihi Bulamadım"
End If
Sg.Range("E18").Copy
Sg.Range("B7:B19").ClearContents
Sg.Range("F18").ClearContents

Application.ScreenUpdating = True

End Sub

 

[latimera]

Arkadaşlar günaydın ,

bu konu hakkında yardımcı olacak arkadaş var mı?

 

[latimera]

Konuyu anlatamadığımı farz ederek tekrar yardımlarınızı bekliyorum.

Ekteki dosyada "günlük gelir-GİDER" sheet inde girilen gelirler , muhtelif gider isimleri ve tutarları. " ekim" sheetine taşınmasını (C2:C10) ve (E2:F17) yapılmasını istiyorum. Bunun için



Sub Aktar()

Dim Sg As Worksheet, bul As Range

Set Sg = Sheets("günlük gelir-GİDER")

Application.ScreenUpdating = False
Sheets("ekim").Select

Set bul = Rows(1).Find(Sg.Range("B6"), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sg.Range("C2:C18").Copy
Cells(2, bul.Column).PasteSpecial xlPasteValues, xlNone
Application.CutCopyMode = False
Range("B5").Select
Else
MsgBox "Tarihi Bulamadım"
End If
Sg.Range("E18").Copy
Sg.Range("B7:B19").ClearContents
Sg.Range("F18").ClearContents

Application.ScreenUpdating = True

End Sub
modul yazılımı yapıldı. fakak yanlışlıklarım var bu yanlışlıkları nasıl düzeltebilirim.