Moderatori: Anthony47, Flash30005
For RR = 2 To 100
If Range("A" & RR).value >= ValoreTextBox1 and Range("A" & RR).value <= ValoreTextBox2 Then
Call TuaMacroCheCopia
endif
next RR
rotella ha scritto:con vari campi dalla colonna A alla W la data è nella colonna D.
rotella ha scritto: le date sono tutte in una colonna di una tabella
rotella ha scritto:....si in pratica ho creato un db su fogli excel
Worksheets("Storico").Range("A" & indi).Copy Destination:=Worksheets("Ricerche").Range("A" & numriga) 'Documento
Worksheets("Storico").Range("B" & indi).Copy Destination:=Worksheets("Ricerche").Range("B" & numriga) 'Data
Worksheets("Storico").Range("C" & indi).Copy Destination:=Worksheets("Ricerche").Range("C" & numriga) 'Reparto
Worksheets("Storico").Range("D" & indi).Copy Destination:=Worksheets("Ricerche").Range("D" & numriga) 'Isola
Worksheets("Storico").Range("E" & indi).Copy Destination:=Worksheets("Ricerche").Range("E" & numriga) 'Codice Articolo
Worksheets("Storico").Range("F" & indi).Copy Destination:=Worksheets("Ricerche").Range("F" & numriga) 'Operatore
Worksheets("Storico").Range("G" & indi).Copy Destination:=Worksheets("Ricerche").Range("G" & numriga) 'Descrizione
Worksheets("Storico").Range("H" & indi).Copy Destination:=Worksheets("Ricerche").Range("H" & numriga) 'Quantità
Worksheets("Storico").Range("I" & indi).Copy Destination:=Worksheets("Ricerche").Range("I" & numriga) 'Tipo di ordine
Worksheets("Storico").Range("J" & indi).Copy Destination:=Worksheets("Ricerche").Range("J" & numriga) 'Scarto Previsto
Worksheets("Storico").Range("K" & indi).Copy Destination:=Worksheets("Ricerche").Range("K" & numriga) ' Media Prevista
Worksheets("Storico").Range("L" & indi).Copy Destination:=Worksheets("Ricerche").Range("L" & numriga) 'Cliente
Worksheets("Storico").Range("M" & indi).Copy Destination:=Worksheets("Ricerche").Range("M" & numriga) 'Note
Worksheets("Storico").Range("N" & indi).Copy Destination:=Worksheets("Ricerche").Range("N" & numriga) 'Criticità
Worksheets("Storico").Range("O" & indi).Copy Destination:=Worksheets("Ricerche").Range("O" & numriga) 'Data Produzione
Worksheets("Storico").Range("P" & indi).Copy Destination:=Worksheets("Ricerche").Range("P" & numriga) 'Ora Inizio Produzione
Worksheets("Storico").Range("Q" & indi).Copy Destination:=Worksheets("Ricerche").Range("Q" & numriga) 'Ora Fine Produzione
Worksheets("Storico").Range("R" & indi).Copy Destination:=Worksheets("Ricerche").Range("R" & numriga) 'Totale Fermo
Worksheets("Storico").Range("S" & indi).Copy Destination:=Worksheets("Ricerche").Range("S" & numriga) 'Causa Fermo
Worksheets("Storico").Range("T" & indi).Copy Destination:=Worksheets("Ricerche").Range("T" & numriga) 'N° Pezzi prodotti
Worksheets("Storico").Range("U" & indi).Copy Destination:=Worksheets("Ricerche").Range("U" & numriga) 'N° Pezzi Scardo
Worksheets("Storico").Range("V" & indi).Copy Destination:=Worksheets("Ricerche").Range("V" & numriga) 'Causa Scarto
Worksheets("Storico").Range("W" & indi).Copy Destination:=Worksheets("Ricerche").Range("W" & numriga) 'Fine Produzione
Worksheets("Storico").Rows(indi & ":" & indi).Copy Destination:=Worksheets("Ricerche").Rows(numriga & ":" & numriga)
Worksheets("Storico").Range("A" & indi & ":W" & indi).Copy Destination:=Worksheets("Ricerche").Range("A" & numriga)
Private Sub CmdAvvia_Click()
'Segnalazione di Errore inserimento dati
URR = Worksheets("Ricerche").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("Ricerche").Range("A2:W" & URR).Clear
Trovato = 0
If TxtData1 = "" Then
MsgBox " ERRORE- I Campi DATA devono essere compilati", Title:="Errore Inserimento"
TxtData1.SetFocus
Exit Sub
End If
DataIni = DateSerial(Mid(TxtData1, 7, 4), Mid(TxtData1, 4, 2), Mid(TxtData1, 1, 2))
DataFin = DateSerial(Mid(TxtData2, 7, 4), Mid(TxtData2, 4, 2), Mid(TxtData2, 1, 2))
'MsgBox DataIni & " " & DataFin
Righe = Worksheets("Storico").Cells(Rows.Count, 2).End(xlUp).Row
For rr = 2 To Righe
If Worksheets("Storico").Range("B" & rr).Value >= DataIni And Worksheets("Storico").Range("B" & rr).Value <= DataFin Then
'Copia dati di ricerca su foglio 5
URR = Worksheets("Ricerche").Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets("Storico").Range("A" & rr & ":W" & rr).Copy Destination:=Worksheets("Ricerche").Range("A" & URR)
Worksheets("Ricerche").Range("B" & URR).Interior.ColorIndex = 3 'Colora di rosso la colonna Data
Worksheets("Ricerche").Range("B" & URR).Font.ColorIndex = 2 'Colora di bianco il contenuto di Data
Trovato = 1
End If
Next rr
If Trovato = 0 Then
MsgBox "Nessun risultato trovato con i parametri impostati!", vbExclamation, "Ricerca"
Txtdat1.SetFocus
Exit Sub
Else
FrmRicercaDate.Hide
End If
'Apertura Foglio Ricerche
Sheets("Ricerche").Select
End Sub
Torna a Applicazioni Office Windows
Duck duck go è un motore di ricerca ma anche un browser? Autore: franco11 |
Forum: Software Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Calcolo numero giorni settimana nel periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 16 |
Date CUP Web prenotabili su foglio excel Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 17 |
Visitano il forum: Nessuno e 14 ospiti