FormÜldekİ Hata

[northcyprus]

"BOS" SAYFASININ G KOLONUNDAKİ BİR HÜCREDE ÖDENDİ YAZIYORSA, ÖDENDİ YAZAN SATIR I "A" DAN "J" YE KADAR KOPYALASIN VE "RAPOR " SAYFASINDAKİ 5 İNCİ SATIRA BİR SATIR DAHA EKLENSİN VE "B5" DEN "K5"YE KADAR OLAN KISMA YAPIŞTIRSIN SONRA "BOS" SAYFASINDAKİ "D15" İ "RAPOR" SAYFASINDAKİ "A5" E YAPIŞTIRSIN VE "BOS" SAYFASINDAN KOPYALANAN SATIR SİLİNSİN.

Sub AT()

Sheets("RAPOR").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("B5").Select
Sheets("BOS").Select
Range("A19:J19").Select
Selection.COPY
Sheets("RAPOR").Select
Range("B5").Select
ActiveSheet.Paste
Range("A5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=BOS!R[10]C[3]"
Range("A6").Select
Sheets("BOS").Select
Rows("19:19").Select
Selection.Delete Shift:=xlUp
Range("D20:F20").Select
Sheets("RAPOR").Select
Range("A1").Select
End Sub



BÖYLE YAPTIM AMA OLMADI.
YARDIMLARINIZI BEKLİYORUM....

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek sorunuzu açıklarmısınız.

 

[northcyprus]

Dosya Ekle Sayfasi AÇilmiyor BaŞka Nasil Dosyayi Ekleyebİlİrİm??

 

[northcyprus]

Sub AT()
If [G19] = "ÖDENDİ" Then
Sheets("RAPOR").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("B5").Select
Sheets("BOS").Select
Range("A19:J19").Select
Selection.COPY
Sheets("RAPOR").Select
Range("B5").Select
ActiveSheet.Paste
Range("A5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=BOS!R[10]C[3]"
Range("A6").Select
Sheets("BOS").Select
Rows("19:19").Select
Selection.Delete Shift:=xlUp
Range("E15").Select
Sheets("RAPOR").Select
Range("A5:K5").Select
End If
End Sub


BU FORMÜLDEKİ If [G19] = "ÖDENDİ" Then BÖYLE OLUNCA SADECE G19 U ALIYOR BEN G KOLONUNDA NE KADAR ÖDENDİ YAZIYORSA ONLARI ALSIN İSTİYORUM ONU NASIL YAPABİLİRİM

 

[northcyprus]

Bana Yardiim Edecek Kİmse Yok Mu ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR_SİL()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim SATIR As Long, X As Long
    Set S1 = Sheets("BOS")
    Set S2 = Sheets("RAPOR")
    SATIR = 5
    S1.Select
    For X = 1 To [G65536].End(3).Row
    If Cells(X, "G") = "ÖDENDİ" Then
    S1.Range("A" & X & ":J" & X).Copy S2.Cells(SATIR, "B")
    SATIR = SATIR + 1
    End If
    Next
    For X = [G65536].End(3).Row To 1 Step -1
    If Cells(X, "G") = "ÖDENDİ" Then S1.Rows(X).Delete
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[northcyprus]

sayın Korhan Ayhan hocam yardımınız için teşekür ederim.
makroyu çalıştırdıgımda ödendi yazanları S2 ye alıyor ama benim istediğim tam olarak bu değildi S1 sayfa ismini "BOS" S2 "RAPOR" nin A kolonunda A5 eğer dolu ise oraya bir satır ekleyip yine A5 e yapıştırsın. sonra bu işlemi yapsın. olur mu hocam..
bi daha yardımcı olursanız sevinirim..