Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Подскажите правельный код в макросе
 
#1
12.01.2010 11:33:50
Доброго дня Вам!  
Есть макрос по удалению строк по критерию  
Sub DeleteEmptyRowsColumns()  
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count  
Application.ScreenUpdating = False  
For r = LastRow To 1 Step -1  
If Application.Rows®.Columns(12).Value = "0" Then Rows®.Delete  
Next r  
End Sub  
пытаюсь заменить Columns(12) на Range("L71:L310")так как нужно не повсей колонке выберать а только с L71 по L310 ,но макрос ругается н и соответственно не работает!  
Подскажите что не так?
 
 
 
#2
12.01.2010 11:49:35
может надо не только столбцы, но и строки заменять?  
 
Rows®.Columns(12)  на Range("L71:L310")
 
 
 
#3
12.01.2010 12:05:24
{quote}{login=Dophin}{date=12.01.2010 11:49}{thema=}{post}может надо не только столбцы, но и строки заменять?  
 
Rows®.Columns(12)  на Range("L71:L310"){/post}{/quote}  
Если мне долго обьеснять я быстро понемаю:)  
я делаम так If Application.Rows®.Range("L71:L310").Value = "0" Then Rows®.Delete  
а ему не нравится
 
 
 
#4
12.01.2010 12:11:41
{quote}{login=The_Prist}{date=12.01.2010 12:00}{thema=}{post}Sub DeleteEmptyRowsColumns()  
dim LastRow as long  
LastRow = Range("L71:L310").Row - 1 + Range("L71:L310").Rows.Count  
Application.ScreenUpdating = False  
For r = LastRow To Range("L71:L310").Row Step -1  
If Cells(r,12).Value = "0" Then Rows®.Delete  
Next r  
End Sub{/post}{/quote}  
Огромное спасибо!всё  работает! как всегда!!!
 
 
 
Страницы: 1
Наверх