Sub ProstayaProgramma()
Dim i As Long, j As Long, TvoyaData As Date
TvoyaData = #1/1/2003# 'V zavisimosti ot nastroek kompa #1.1.2003#
i = 1 'Positsiya na proveryaemom liste
j = 1 'Positsiya liste kud kopiruyut
While Worksheets("Sheet1").Cells(i, 1).Value <> ""
If Worksheets("Sheet1").Cells(i, 1).Value = TvoyaData Then
Worksheets("Sheet1").Rows(i).Copy Destination:=Worksheets("Sheet2").Rows(j)
j = j + 1
End If
i = i + 1
Wend
End Sub
Выручайте, проблемы с Макросам
Ну никак не могу сделать простейшее
Как, например, делать перебор постолбцово
с циклом фор-некст
А задача в целом такая:
в одном столбце сидят даты
надо их сравнить с одной заданной датой
и если есть совпадение, то всю строчку
перекинуть на другой лист
Вот и все, а я два дня не могу ее решить
Как, например, делать перебор постолбцово
с циклом фор-некст
А задача в целом такая:
в одном столбце сидят даты
надо их сравнить с одной заданной датой
и если есть совпадение, то всю строчку
перекинуть на другой лист
Вот и все, а я два дня не могу ее решить
Цитата:
Originally posted by Greenering
Ну никак не могу сделать простейшее
Как, например, делать перебор постолбцово
с циклом фор-некст
А задача в целом такая:
в одном столбце сидят даты
надо их сравнить с одной заданной датой
и если есть совпадение, то всю строчку
перекинуть на другой лист
Вот и все, а я два дня не могу ее решить
Ну никак не могу сделать простейшее
Как, например, делать перебор постолбцово
с циклом фор-некст
А задача в целом такая:
в одном столбце сидят даты
надо их сравнить с одной заданной датой
и если есть совпадение, то всю строчку
перекинуть на другой лист
Вот и все, а я два дня не могу ее решить
Код:
Цитата:
Originally posted by Cutty Sark
Код:
Sub ProstayaProgramma()
Dim i As Long, j As Long, TvoyaData As Date
TvoyaData = #1/1/2003# 'V zavisimosti ot nastroek kompa #1.1.2003#
i = 1 'Positsiya na proveryaemom liste
j = 1 'Positsiya liste kud kopiruyut
While Worksheets("Sheet1").Cells(i, 1).Value <> ""
If Worksheets("Sheet1").Cells(i, 1).Value = TvoyaData Then
Worksheets("Sheet1").Rows(i).Copy Destination:=Worksheets("Sheet2").Rows(j)
j = j + 1
End If
i = i + 1
Wend
End Sub
Dim i As Long, j As Long, TvoyaData As Date
TvoyaData = #1/1/2003# 'V zavisimosti ot nastroek kompa #1.1.2003#
i = 1 'Positsiya na proveryaemom liste
j = 1 'Positsiya liste kud kopiruyut
While Worksheets("Sheet1").Cells(i, 1).Value <> ""
If Worksheets("Sheet1").Cells(i, 1).Value = TvoyaData Then
Worksheets("Sheet1").Rows(i).Copy Destination:=Worksheets("Sheet2").Rows(j)
j = j + 1
End If
i = i + 1
Wend
End Sub
И что? :-?