что я делаю с не так? это всё из за сравнения условий?

@feelmymamay · Регистрация: 19.01.2016

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста что я делаю не так? уже по разному изголялся, но что то всё не копирует и всё(((
а нужно: если в month_report_list_name название организации совпадает с названием в базе, то в базу нужно скопировать несколько значений по этой организации...

PureBasic

t = 4
p = 4
  Do While Worksheets(month_report_list_name).Cells(t, 1).Value <> ""
   t = t + 1
  Loop
  
  Do While Worksheets("база").Cells(p, 1).Value <> ""
  If Trim(Worksheets("база").Cells(p, 1).Value) = Trim(Worksheets(month_report_list_name).Cells(t, 1).Value) Then Exit Do
  ' If Worksheets("база").Cells(p, 2).Value = Worksheets(month_report_list_name).Cells(t, 2).Value Then Exit Do
     p = p + 1
     Loop
Worksheets("база").Cells(p, 15).Value = Worksheets(month_report_list_name).Cells(t, 15)
Worksheets("база").Cells(p, 16).Value = Worksheets(month_report_list_name).Cells(t, 16)
Worksheets("база").Cells(p, 17).Value = Worksheets(month_report_list_name).Cells(t, 17)

@korvindeson · 17.03.2016, 04:01

Cells(t, 15), Cells(t, 17) и Cells(t, 17) у вас всегда пустые будут.
Вот тут

Visual Basic

1
2
3

Do While Worksheets(month_report_list_name).Cells(t, 1).Value <> ""
   t = t + 1
  Loop

Вы увеличиваете t, пока не находите пустую строчку.
Потом вы ищете одинаковую строчку для p, которая так же будет пустой.
Потом копируете пустую строчку в пустую.

Поменяйте 3 строку на

Visual Basic

1	Do While Worksheets(month_report_list_name).Cells(t+1, 1).Value <> ""

Или вбейте в гугль excel найти последнюю непустую ячейку или что-то такое, чтоб не морочиться в будующем.

	17.03.2016, 04:01