Автор Тема: перенос данных по номеру строки из ячейки  (Прочитано 146 раз)

Оффлайн Посетитель 07.06.2022

  • Посетитель форума
  • Сообщений: 3
Приветствую, коллеги! Пишу макрос (я в этом новичок) по переносу данных из одного файла (Б) в другой (А).

Но данные из файла Б должны вставать в определенную строчку файла А, номер которой указан в табличке на листе 2.
Не понятно как сослаться на ячейку так, чтобы vba понял, что её нужно распознать как номер строки.


Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
В файле "A" есть макрос "ghostkiy_makros". Его надо посмотреть?

Оффлайн Посетитель 07.06.2022

  • Посетитель форума
  • Сообщений: 3
Да. Там я копирую номер нужной строки, удаляю старый массив, копирую новый, но не понимаю как его вставить на место старого.

Оффлайн Посетитель 07.06.2022

  • Посетитель форума
  • Сообщений: 3
Sub ghostkiy_makros()


' копия номера строчки



    Range("K42").Select
   
    Selection.Copy
   
    Range("L42").Select
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False





 'удаление строк'
 
 
 
Dim r As Long, i As Long ' объявляю переменные

   r = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row - 0 ' определяю номер последней строки
   
      For i = r To 1 Step -1 ' цикл от последней строки до строки под номером 1
     
         If Cells(i, 1) = "Мерседес" Then ' если ячейка (i, F) равняется 1
         
            ActiveSheet.Rows(i).Delete ' удалить строку(i)
           
         End If
      Next i
     
     
     
     
     
     
 'копирование
 
 
 



  Workbooks.Open "C:\Users\User\Desktop\на форум\Мерседес.xlsx"
 
    Workbooks("Мерседес").Worksheets(1).Range("A2:D1000").Select
   
   
    Selection.Copy
   
    ThisWorkbook.Worksheets(1).Activate '<<<<<<<
   
    Dim h As Integer
   
    h = ThisWorkbook.Sheets("Лист1").Cells(11, 42).Value
   
    Sheets(1).Paste Cells([h], 1)
   
    Workbooks("Мерседес").Close

End Sub

Вот очередная попытка, но ничего не вышло( Только в этом варианте, я перекинул табличку со второго листа на первй.

Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
Написал вам письмо на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.