Public var0, wk1
Sub Esecuzione()
wk1 = ActiveWorkbook.Name
sh1 = "dati"
da = 2
a = 3
For n = da To a
crea = Workbooks(wk1).Sheets(sh1).Range("A" & n).Value
If crea = 1 Then
var0 = Workbooks(wk1).Sheets(sh1).Range("B" & n).Value
End If
Call Prima
If msg0 = 1 Then
msg1 = MsgBox("contratto non presente: proseguire con il contratto o passare al successivo?", vbYesNo)
If msg1 = vbYes Then
Call Seconda
Else
MsgBox "ciao"
End If
Next n
End Sub
Public msg0
Sub Prima()
Workbooks(wk1).Sheets("prima").Activate
Dim var1(1) As String
var1(1) = var0
For C = 1 To 1
ur = Range("A" & (Rows.Count)).End(xlUp).Row
For CR = ur To 2 Step -1
If var1(C) <> UCase(Cells(CR, 1).Value) Then Rows(CR & ":" & CR).Delete shift:=xlUp
Next CR
Next C
If Range("A2").Value <> var0 Then
msg = MsgBox("contratto non presente", vbOKOnly)
End If
End Sub
Public msg1
Sub Seconda()
Workbooks(wk1).Sheets("seconda").Activate
Dim var1(1) As String
var1(1) = var0
For C = 1 To 1
ur = Range("A" & (Rows.Count)).End(xlUp).Row
For CR = ur To 2 Step -1
If var1(C) <> UCase(Cells(CR, 1).Value) Then Rows(CR & ":" & CR).Delete shift:=xlUp
Next CR
Next C
If Range("A2").Value <> var0 Then
msg1 = MsgBox("contratto non presente", vbOKOnly)
End If
End Sub
|