У нас вы можете посмотреть бесплатно ترحيل البيانات من شيت عمل الى شيت اخر فى الاكسيل vba или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
=================== يمكنك تحميل كاتب اكواد الاكسل و الاعمال الاخرى بالانضمام الى القناة https://www.youtube.com/@YasserMunir/... =================== الكود المستخدم Option Explicit Private Sub CommandButton1_Click() Dim lastRow As Long lastRow = ThisWorkbook.Sheets("kol3omlaa").Range("b10000").End(xlUp).Row lastRow = lastRow + 1 With ThisWorkbook.Sheets("kol3omlaa") .Range("b" & lastRow).Value = Sheets("3amel").Range("b3").Value .Range("c" & lastRow).Value = Sheets("3amel").Range("d3").Value End With Sheets("3amel").Range("b3").Value = "" Sheets("3amel").Range("d3").Value = "" End Sub