Moderatori: Anthony47, Flash30005
For I = Sheets("Storico").Cells(Rows.count, 1).End(xlup).Row To 1 Step -1
If Sheets("Storico").Cells(I, 1).value = Range("Paziente").value Then
'qui le istruzioni per prelevare tutte le celle della riga N° I
' e posizionarle nella tua maschera
'
Exit Sub
End If
Next I
Sub CopiaDati()
For Ri = Sheets("Archivio").Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Sheets("Archivio").Cells(I, 3).Value = Sheets("Maschera Dati").Range("C8").Value Then
Application.ScreenUpdating = False
Sheets("Archivio").Select
Range("A" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Archivio").Select
Range("C" & Ri & ":I" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C8:C14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("J" & Ri & ":K" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C16:C17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("L" & Ri & ":N" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C22:C24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("P" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("O" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("Q" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("R" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("S" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("T" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("U" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("V" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("W" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("X" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("Z" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("Y" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AA" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AB" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AC" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AD" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AE" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AG" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AH" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AF" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AI" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AJ" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C46").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AK" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E46").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AL" & Ri & ":AN" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C47:C49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AO" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C52").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AP" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E52").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AQ" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AR" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AS" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("G53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AT" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AU" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C55").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AV" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E55").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AW" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AX" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("AY" & Ri & ":BA" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C57:C59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("BB" & Ri & ":BN" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C78:C90").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("BO" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C92").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("BP" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C93").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("BQ" & Ri & ":BT" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C95:C98").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("BU" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("E98").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("BV" & Ri & ":CE" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C103:C112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("CF" & Ri & ":CJ" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C117:C121").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("CK" & Ri & ":CS" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C123:C131").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("CT" & Ri & ":CU" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C133:C134").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("CV" & Ri & ":CW" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C136:C137").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("CX" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C152").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("CY" & Ri & ":CZ" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D155:E155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("DA" & Ri & ":DB" & Ri & "").Select
Sheets("Maschera dati").Select
Range("D156:E156").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Archivio").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DC" & Ri & ":DD" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D157:E157").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DE" & Ri & ":DF" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D158:E158").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DG" & Ri & ":DH" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D159:E159").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DI" & Ri & ":DJ" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D160:E160").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DK" & Ri & ":DL" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D161:E161").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DM" & Ri & ":DN" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("D162:E162").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DO" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C164").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("DP" & Ri & ":EC" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C168:C181").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Archivio").Select
Range("ED" & Ri & ":EX" & Ri & "").Select
Selection.Copy
Sheets("Maschera dati").Select
Range("C188:C208").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Maschera dati").Select
ActiveWindow.ScrollRow = 1
Sheets("Archivio").Select
Range("A1").Calculate
ActiveWindow.ScrollColumn = 1
Selection.ClearContents
Sheets("Maschera dati").Select
Range("C3").Select
Exit Sub
End If
Next Ri
Application.ScreenUpdating = True
MsgBox "Richiamo record completato", vbInformation, "Avviso"
End Sub
Perdona, quale problema?purtroppo il problema continua a sussistere nella indicizzazione...
Sub CopiaDati()
Dim Rng As Range
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim WB As Workbook
Dim arr As Variant
Dim i As Long
Set WB = ActiveWorkbook
Set SH1 = WB.Sheets("Maschera Dati")
Set SH2 = WB.Sheets("Archivio")
Set Rng = SH2.Range("C6:EW6")
arr = Array("C8", "C9", "C10", "C11", "C12", "C13", "C14", "C16", "C17", "C22", "C23", "C24", "C25", "D24", "D25", "C30", "C31", "C32", "C33", _
"C34", "E30", "E32", "E33", "C36", "C38", "E37", "E38", "C41", "C42", "C43", "E41", "E42", "C46", "C47", "C48", "C49", "E46", "C52", "C53", _
"C54", "C55", "C56", "C57", "C58", "C59", "D56", "E52", "E53", "G53", "C78", "C90", "C92", "C93", "C95", "C96", "C97", "C98", "E98", "C103", _
"C104", "C105", "C106", "C107", "C108", "C109", "C110", "C111", "C112", "C117", "C118", "C119", "C120", "C121", "C123", "C124", "C125", _
"C126", "C127", "C128", "C129", "C130", "C131", "C133", "C134", "C136", "C137", "C152", "D155", "E155", "D156", "E156", "D157", "E157", _
"D158", "E158", "D159", "E159", "D160", "E160", "D161", "E161", "D162", "E162", "C164", "C168", "C169", "C170", "C171", "C172", "C173", "C174", _
"C175", "C176", "C177", "C178", "C179", "C180", "C181", "C188", "C189", "C190", "C191", "C192", "C193", "C194", "C195", "C196", "C197", "C198", _
"C199", "C200", "C201", "C202", "C203", "C204", "C205", "C206", "C207", "C208")
If Sheets("Archivio").Cells(i, 3).Value = Sheets("Maschera Dati").Range("C8").Value Then
For i = 1 To Rng1.Cells.Count
SH1.Range(arr(i - 1)).Value = Rng.Cells(i).Value
MsgBox "Richiamo record completato", vbInformation, "Avviso"
Next
End If
End Sub
If Sheets("Archivio").Cells(i, 3).Value = Sheets("Maschera Dati").Range("C8").Value Then
Sub FoglioPaziente()
'----------- da qui inzia e toglie tutti i fogli ad esclusione di Maschera, Archivio e Parametri
NomeF = ""
For Each ws In Worksheets
If Worksheets(ws.Name).Name = "Maschera dati" Or Worksheets(ws.Name).Name = "Archivio" Or Worksheets(ws.Name).Name = "Parametri" Then GoTo salta
Application.DisplayAlerts = False
Worksheets(ws.Name).Delete
Application.DisplayAlerts = True
salta:
Next ws
'----------- qui finisce codice chee toglie tutti i fogli ad esclusione ....
NomeF = Sheets("Maschera dati").Range("C8").Value & "." & Sheets("Maschera dati").Range("C9").Value
Sheets("Archivio").Select
Sheets("Archivio").Copy After:=Sheets(3)
Sheets("Archivio (2)").Name = NomeF
UR = Worksheets(NomeF).Range("A" & Rows.Count).End(xlUp).Row
For RR = UR To 6 Step -1
If Range("C" & RR).Value & "." & Range("D" & RR).Value <> NomeF Then Rows(RR & ":" & RR).Delete Shift:=xlUp
Next
Range("A1").Select
End Sub
pietrol ha scritto:Anche oggi, come spesso mi accade qui, ho imparato una cosa nuova di cui nemmeno immaginavo l'esistenza.
Sub CopiaDati()
Dim Rng As Range
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim WB As Workbook
Dim Arr As Variant
Dim I As Long, Ri As Long
Set WB = ActiveWorkbook
Set SH1 = WB.Sheets("Maschera Dati")
Set SH2 = WB.Sheets("Archivio")
Set Rng = SH2.Range("C6:EW6") 'Questa e' inutile
Arr = Array("C8", "C9", "C10", "C11", "C12", "C13", "C14", "C16", "C17", "C22", "C23", "C24", "C25", "D24", "D25", "C30", "C31", "C32", "C33", _
"C34", "E30", "E32", "E33", "C36", "C38", "E37", "E38", "C41", "C42", "C43", "E41", "E42", "C46", "C47", "C48", "C49", "E46", "C52", "C53", _
"C54", "C55", "C56", "C57", "C58", "C59", "D56", "E52", "E53", "G53", "C78", "C90", "C92", "C93", "C95", "C96", "C97", "C98", "E98", "C103", _
"C104", "C105", "C106", "C107", "C108", "C109", "C110", "C111", "C112", "C117", "C118", "C119", "C120", "C121", "C123", "C124", "C125", _
"C126", "C127", "C128", "C129", "C130", "C131", "C133", "C134", "C136", "C137", "C152", "D155", "E155", "D156", "E156", "D157", "E157", _
"D158", "E158", "D159", "E159", "D160", "E160", "D161", "E161", "D162", "E162", "C164", "C168", "C169", "C170", "C171", "C172", "C173", "C174", _
"C175", "C176", "C177", "C178", "C179", "C180", "C181", "C188", "C189", "C190", "C191", "C192", "C193", "C194", "C195", "C196", "C197", "C198", _
"C199", "C200", "C201", "C202", "C203", "C204", "C205", "C206", "C207", "C208")
For Ri = Sheets("Archivio").Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1 '**1
If Sheets("Archivio").Cells(Ri, 3).Value = Sheets("Maschera Dati").Range("C8").Value Then '**2
For I = 0 To UBound(Arr) '**3
SH1.Range(Arr(I)).Value = SH2.Cells(Ri, I + 3).Value '**4
Next I '**5
MsgBox "Richiamo record completato", vbInformation, "Avviso" '**6
Exit Sub '**7
End If
Next Ri '**1
MsgBox ("Non ci sono record con questa chiave di ricerca: " & vbCrLf & _
Sheets("Maschera Dati").Range("C8").Value) '**8
End Sub
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 7 ospiti