Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование строк с пустыми ячейками в столбце
 
всем привет. есть макрос, который отфильтровывает в одном столбце пустые ячейки, затем данные из других столбцов копирует в таблицу на другом листе. проблема в том,что если в исходном столбце ВСЕ ячейки пусты то макрос не работает. Подскажите как быть
 
Для начала показать этот файл с макросом.
 
Sheets("рихтовка").Select
   Sheets("отчетный период ").Visible = True
   Sheets("отчетный период ").Select
   ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=10, Criteria1:="Р"
   ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=11, Criteria1:="=3", _
       Operator:=xlOr, Criteria2:="=4"
   
   ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=14, Criteria1:="<>"
  Range("A5:I11000").SpecialCells(xlCellTypeVisible).Copy
   Sheets("рихтовка").Select
   Range("A5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
   Sheets("отчетный период ").Select
  Range("L5:M11000").SpecialCells(xlCellTypeVisible).Copy
 
   Sheets("рихтовка").Select
   Range("J5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("отчетный период ").Select
   Range("CQ5:CQ11000").SpecialCells(xlCellTypeVisible).Copy
   
   Sheets("рихтовка").Select
  Range("L5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
  Sheets("отчетный период ").Select
   Range("CT5:CU11000").SpecialCells(xlCellTypeVisible).Copy
 
  Sheets("рихтовка").Select
   Range("M5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
       
   ' КОПИРОВАНИЕ
   Sheets("отчетный период ").Select
   Range("K5:K11000").SpecialCells(xlCellTypeVisible).Copy
 
   Sheets("рихтовка").Select
      Range("AA5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("отчетный период ").Select
      Range("CS5:CS11000").SpecialCells(xlCellTypeVisible).Copy
 
   Sheets("рихтовка").Select
   Range("AB5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
     
   Sheets("отчетный период ").Select
   Application.CutCopyMode = False
   ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=14
 
что никто не может подсказать?
 
Все отдыхают. А Вы пока оформите код соответствующим тегом. И что-то не вижу самого файла...
Страницы: 1
Читают тему (гостей: 1)