АРХИВАЦИЯ ДАННЫХ И СКРЫТИЕ КОЛОНОК

[Cone]

Можете еще не много помочь, надо чтобы вылетало окно "ВЫ не ВВЕЛи ДАННЫЕ" если при запуске макроса не ввели ДАНННЫЕ


Sub hideree_()

Dim I As Integer
Dim DH As Integer
DH = InputBox("введите кол-во дней")
With Sheets("HEAD")
For I = 7 To .Range("iv12").End(xlToLeft).Column Step 2
If Now - CDate(.Cells(12, I)) > DH Then
.Columns(I).Hidden = True
.Columns(I + 1).Hidden = True
End If
Next
End With
End Sub

[doober]

Sub hideree_()

Dim I As Integer
Dim DH As Intege
On Error Resume Next
DH = InputBox("ввеите число")
If DH = 0 Then MsgBox "ВЫ не ВВЕЛи ДАННЫЕ", vbCritical: Exit Sub
With Sheets("HEAD")
For I = 7 To .Range("iv12").End(xlToLeft).Column Step 2
If Now - CDate(.Cells(12, I)) > DH Then
.Columns(I).Hidden = True
.Columns(I + 1).Hidden = True
End If
Next
End With
End Sub


 Sub ARCHIVE_Killer()
Dim I As Integer, N  As Integer
With Sheets("HEAD")
 For I = 7 To .Range("iv35").End(xlToLeft).Column Step 2
 If InStr(1, .Cells(35, I), "завершено", vbTextCompare) = 1 Then
  N = Sheets("ARCHIVE").Range("iv35").End(xlToLeft).Column
  N = N Mod 2 + N
 If N < 8 Then
 N = 8
 Else
  N = N + 2
 End If
 .Columns(I).Copy Sheets("ARCHIVE").Columns(N - 1)
 .Columns(I + 1).Copy Sheets("ARCHIVE").Columns(N)
 .Cells(35, I).Interior.Color = 255
 .Cells(35, I + 1).Interior.Color = 255
 End If
 Next
 For N = I To 7 Step -1
If .Cells(35, N).Interior.Color = 255 Then
.Columns(N).Delete
 End If
  Next
  End With
End Sub

[Cone]

Спасибо большое! Работает как часы! Можно попросить Вас еще об одном одолжении,
добавьте пожалуйста коменты к ARCHIVE_Killer, мне как начинающему чайнику они были бы полезны!

[doober]

Читайте вложение

[Cone]

Класс спасибо! Прям черной завистью завидую вашему умению писать макросы!
Вот тут не много переделал макрос, вроде работает! Может что то доработать надо?

Sub strin_ger()
Columns("G:WW").Select
Selection.EntireColumn.Hidden = False
Dim I As Integer
Dim DH As String
DH = InputBox("введите завершено или не завершено")
On Error Resume Next
With Sheets("HEAD")
For I = 7 To .Range("iv35").End(xlToLeft).Column Step 2
If InStr(1, .Cells(35, I), DH, vbTextCompare) = 1 Then
.Columns(I).Hidden = False
.Columns(I + 1).Hidden = False
Else
.Columns(I).Hidden = True
.Columns(I + 1).Hidden = True
End If
Next
End With
End Sub

[doober]

Sub strin_ger()
Columns("G:WW").Select
Selection.EntireColumn.Hidden = False
Dim I As Integer
Dim DH As String
DH = InputBox("введите завершено или не завершено")
If DH =""  Then Exit Sub
With Sheets("HEAD")
For I = 7 To .Range("iv35").End(xlToLeft).Column Step 2
If InStr(1, .Cells(35, I), DH, vbTextCompare) = 1 Then
.Columns(I).Hidden = False
.Columns(I + 1).Hidden = False
Else
.Columns(I).Hidden = True
.Columns(I + 1).Hidden = True
End If
Next
End With
End Sub