حذف سطر های فراخوانی شده

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • abantoor
    • 2019/04/23
    • 3
    #1

    [حل شده] حذف سطر های فراخوانی شده

    با سلام من یک فایلی دارم که از شیت 1 اطلاعاتی رو برشرط اینکه کلمه okدر یکی از سلول ها وجود داشت کپی و در شیت دومpase میکنه و میخاستم موقعی که کپی میشه اون سطر پاک بشه و بعد در شیت دوم بشینه مشکل من دقیقا در مورد پاک کردن سطر فراخوانی شده هست که یکی در میان پاک میکنه و اطلاعات پشت سرهم با وجود شرط کلمه ok پاک نمیشه
    نمونه فایل راهم گذاشتم ممنون میشم راهنماییم کنید تا مشکلم بر طرف بشه با تشکر
    فایل های پیوست شده
    Last edited by abantoor; 2019/04/29, 13:09.
    برچسب ها: هیچ‌کدام
    • M_ExceL

      • 2018/04/23
      • 677
      #2
      نوشته اصلی توسط abantoor
      با سلام من یک فایلی دارم که از شیت 1 اطلاعاتی رو برشرط اینکه کلمه okدر یکی از سلول ها وجود داشت کپی و در شیت دومpase میکنه و میخاستم موقعی که کپی میشه اون سطر پاک بشه و بعد در شیت دوم بشینه مشکل من دقیقا در مورد پاک کردن سطر فراخوانی شده هست که یکی در میان پاک میکنه و اطلاعات پشت سرهم با وجود شرط کلمه ok پاک نمیشه
      نمونه فایل راهم گذاشتم ممنون میشم راهنماییم کنید تا مشکلم بر طرف بشه با تشکر
      سلام
      کد زیر رو جایگزین کد مربوط به باتن تکمیل خرید گنید :
      کد:
      Sub kharid_new()
z1 = Sheets("darkhast").Range("e" & Rows.Count).End(xlUp).Row
lsh2 = Sheets("kharid").Range("e" & Rows.Count).End(xlUp).Row + 100
For i = 4 To z1
    If Sheets("darkhast").Cells(i, 9) = "ok" Then
        Sheets("kharid").Range("e" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 5)
        Sheets("kharid").Range("f" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 6)
        Sheets("kharid").Range("g" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 7)
    End If
Next i

For j = 4 To z1
    Do While Sheets("darkhast").Cells(j, 9) = "ok"
        Sheets("darkhast").Cells(j, 9).EntireRow.Delete
    Loop
Next j
          
End Sub
      یا حق.
      [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
      [/CENTER]

        کامنت

        • abantoor
          • 2019/04/23
          • 3
          #3
          نوشته اصلی توسط M_ExceL
          سلام
          کد زیر رو جایگزین کد مربوط به باتن تکمیل خرید گنید :
          کد:
          Sub kharid_new()
z1 = Sheets("darkhast").Range("e" & Rows.Count).End(xlUp).Row
lsh2 = Sheets("kharid").Range("e" & Rows.Count).End(xlUp).Row + 100
For i = 4 To z1
    If Sheets("darkhast").Cells(i, 9) = "ok" Then
        Sheets("kharid").Range("e" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 5)
        Sheets("kharid").Range("f" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 6)
        Sheets("kharid").Range("g" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 7)
    End If
Next i

For j = 4 To z1
    Do While Sheets("darkhast").Cells(j, 9) = "ok"
        Sheets("darkhast").Cells(j, 9).EntireRow.Delete
    Loop
Next j
          
End Sub
          یا حق.

          خیلی خیلی متشکرم درست شدش

          - - - Updated - - -

          فقط میشه یک توضیحی بدین که اشکال کارم کجا بود؟

            کامنت

            قبلی template بعدی
            چند لحظه..