spero di essere stato abbastanza chiaro qui c'è il listato
- Codice: Seleziona tutto
Private Sub CmdAnnulla_Click()
Unload Me
Sheets(1).Select
Menu.Show
Exit Sub
End Sub
Private Sub UserForm_Activate()
TxtIsola.Text = ""
TxtIsola.SetFocus
End Sub
Private Sub Cmdcerca_Click()
Range("B2").Select
NR = 0
Do While Range("B" & NR + 1).Text <> ""
NR = NR + 1
Loop
risposta = 7
indi = 2
'Ricerca per Isola e Data
StringaCercata = TxtIsola.Text
StringaCercata = TxtData.Text
Do While (risposta = 7) And (indi <= NR)
CellaValutata = Range("B" & indi).Text
CellaValutata = Range("L" & indi).Text
MyPos = InStr(1, CellaValutata, StringaCercata)
If MyPos <> 0 Then
numriga = indi
'Ricerca per Isola
Reparto = Range("A" & numriga)
Isola = Range("B" & numriga).Text
Operatore = Range("C" & numriga).Text
Codice = Range("D" & numriga).Text
Descrizione = Range("E" & numriga).Text
Quantità = Range("F" & numriga).Text
Tipo = Range("G" & numriga).Text
Scarto = Range("H" & numriga).Text
Media = Range("I" & numriga).Text
Cliente = Range("J" & numriga).Text
Note = Range("K" & numriga).Text
Data = Range("L" & numriga).Text
Criticità = Range("M" & numriga).Text
Frmstampa.Hide
'Copia dati di ricerca su foglio 3
Worksheets("Storico").Range("A" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("A" & numriga)
Worksheets("Storico").Range("B" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("B" & numriga)
Worksheets("Storico").Range("C" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("C" & numriga)
Worksheets("Storico").Range("D" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("D" & numriga)
Worksheets("Storico").Range("E" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("E" & numriga)
Worksheets("Storico").Range("F" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("F" & numriga)
Worksheets("Storico").Range("G" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("G" & numriga)
Worksheets("Storico").Range("H" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("H" & numriga)
Worksheets("Storico").Range("I" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("I" & numriga)
Worksheets("Storico").Range("J" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("J" & numriga)
Worksheets("Storico").Range("K" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("K" & numriga)
Worksheets("Storico").Range("L" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("L" & numriga)
Worksheets("Storico").Range("M" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("M" & numriga)
'Sub EliminaRigaVuota()
Worksheets("Dati Temporanei").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
'Visualiza il cursore
TxtIsola.SetFocus
If risposta = 2 Then
Frmstampa.Hide
Exit Sub
End If
indi = indi + 1
Loop
'Apertura Foglio 3
Sheets(3).Select
Exit Sub
End Sub
Modificato titolo topic e inserito codice nel tag CODE - Moderatore Flash30005