اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب تعديل على كود نسخ ولصق عن طريق vba


wissamkh

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

لدي هذا الكود لترحيل بيانات من خلية الى خلية اخرى

وأستعمله لعدة خلايا

أريد تعديل الكود أنه بحال كانت خلية من الخلايا المرحلة فارغة يتم تعبئتها تلقائيا بأي نص

حتى لا تتداخل بيانات الاسطر في الترحيل التالي.

وشكرا لكم 

Sheets("sheet1").Select
    Range("G8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D" & Sheets("sheet2").[D1000].End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

رابط هذا التعليق
شارك

جرب هذا الماكرو

Option Explicit
Sub copy_paste()
Dim lr1%: lr1 = Sheets("Sheet1").Cells(Rows.Count, "D").End(3).Row + 2
lr1 = IIf(lr1 = 3, 1, lr1)
Dim lr2%: lr2 = Sheets("Sheet2").Cells(Rows.Count, "D").End(3).Row
Dim i%: i = 1
Dim col As Object
Set col = CreateObject("System.Collections.ArrayList")
 With col
    Do Until i > lr2
      If Sheets("Sheet2").Range("D" & i) <> vbNullString Then
      .Add Sheets("Sheet2").Range("D" & i).Value
      End If
     i = i + 1
    Loop
     Sheets("Sheet1").Range("d" & lr1).Resize(.Count - 1) = _
    Application.Transpose(.toarray)
  End With
End Sub

الملف مرفق

 

Bookaa.xlsm

  • Like 1
رابط هذا التعليق
شارك

عذرا أخي لم أفهم الكود جيدا

أخي هذا الملف المرفق هو نموذج عن ما أعمل به

ال sheet1  الخلاية اللي محددة هي التي سوف ترحل الى الصفحة الثانية

أريدها بحال كانت فارغة عند الترحيل، تلقائيا يكتب أي شيء مكانها في صفحة الترحيل في المكان المخصص لها

boooookk.xlsm

رابط هذا التعليق
شارك

للرفع

 

تم التعديل على الملف وتم وضع سطرين لتجربة الحالة المطلوبة

في الشيت 2  السطر الأول بالجدول هو في حال كانت جميع الخلايا المرحلة من الشيت 1 ذات محتوى نص معين

أما السطر الثاني هو في حال كانت بعض الخلايا فارغة

 

لا أريدها عندما تترحل الى الجدول في الشيت 2 أن تبقى فارغة، أريد تعبئتها بأي نص أو رمز

boooookk.xlsm

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information