GrustniyPanda
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такая проблемка, есть следующий программный код:
Private Sub Vip1_Click()
Dim i As Long
Dim y As Integer
Dim pEG As Worksheet
Set pEG = Sheets("Åæåäíåâíàÿ ñâîäêà")
pEG.Activate
Range("A3:H100").Select
Selection.ClearContents
y = 3
For i = 3 To 65536
If txt.Text = Sheets("1").Cells(i, 6).Value _
Or txt.Text = Sheets("1").Cells(i, 7).Value _
Or txt.Text = Sheets("1").Cells(i, 8).Value Then
For colindex = 1 To 8
Sheets("2").Cells(y, colindex).Value = _
Sheets("1").Cells(i, colindex).Value
Next colindex
y = y + 1
End If
Next i
EgednSvodka.txt.Text = ""
EgednSvodka.Hide
End Sub
Как теперь заставить выделить тот диапазон, который был скопирован?
Так же есть еще одна беда, есть столбец в котором присутствуют как формулы, так и значения (дата), нужен запросик по датам (периодам), получилось следующие:
Private Sub CommandButton1_Click()
Dim pSource As Worksheet, pDest As Worksheet
Dim i As Long, vFirst As Long, vLast As Long, vFirstCol As Long
Dim vBegin As Date, vEnd As Date, vCode As Long
Dim vCurrent As Date, vPos As Long
Dim x As Long
Dim y As Integer
y = 3
vBegin = CDate(TextBeginYear1.Text)
vEnd = CDate(TextEndYear1.Text)
Set pSource = Sheets("Ãëàâíàÿ")
Set pDest = Sheets("V1")
pDest.Activate
Range("A3:H10000").Select
Selection.ClearContents
pSource.Activate
For i = 3 To 65536
vCurrent = CDate(pSource.Cells(i, 6).Value)
If (vCurrent >= vBegin) And (vCurrent <= vEnd) Then
vPos = vPos + 1&
For colindex = 1 To 6
Sheets("V1").Cells(y, colindex).Value = _
Sheets("Ãëàâíàÿ").Cells(i, colindex).Value
Next colindex
y = y + 1
End If
Next i
TextBeginYear = ""
TextEndYear = ""
DiapazonV1.Hide
End Sub
Но выдает ошибку, ругается на наличие формул в столбце, как заставить его игнорировать формулы, а брать только ячейки со значением?
Помогите, пожалуйста, и Россия вас не забудет))) |
учим тег more
