Moderatori: Anthony47, Flash30005
Sub COMPILARESTO() località = InputBox("Scrivi dove.")
Foglio1.Range("E18") = località
durata = InputBox("Scrivi la durata.")
Foglio1.Range("i18") = durata
motivazione = InputBox("Scrivi il motivo.")
Foglio1.Range("E20") = motivazione
oneri = InputBox("Scrivi spesa.")
Foglio1.Range("F21") = oneri
Data = InputBox("Scrivi la data ??.")
Foglio1.Range("F23") = Data
orario = InputBox("Scrivi l'orario ??.")
Foglio1.Range("H23") = orario
mezzo = InputBox("Scrivi aiutante ??.")
Foglio1.Range("J23") = mezzo
gg = InputBox("Scrivi numero gg??.")
Foglio1.Range("F25") = gg
rspp = InputBox("Scrivi eventualmente rspp ??.")
Foglio1.Range("J25") = rspp
vi = InputBox("Segna con X se è solo previsto ritiro")
Foglio1.Range("B27") = vi
con = InputBox("Segna con X se è solo previsto consegna.")
Foglio1.Range("E27") = con
amb = InputBox("Segna con X se previsti ambidue")
Foglio1.Range("H27") = amb
End sub
[code]
mentre in workbook open ho questo:
[code]If numerico = "1" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = UCase(primonome)
COMPILARESTO
End If
If numerico = "2" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
COMPILARESTO
End If
If numerico = "3" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
COMPILARESTO
End If
If numerico = "4" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
quartonome = InputBox("quart ins")
Foglio1.Range("C11") = quartonome
COMPILARESTO
End If
If numerico = "5" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
quartonome = InputBox("quart ins")
Foglio1.Range("C11") = quartonome
quintonome = InputBox("quinto ins")
Foglio1.Range("C12") = quintonome
COMPILARESTO
End If
If numerico = "6" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
quartonome = InputBox("quart ins")
Foglio1.Range("C11") = quartonome
quintonome = InputBox("quinto ins")
Foglio1.Range("C12") = quintonome
sestonome = InputBox("sesto ins")
Foglio1.Range("C13") = sestonome
COMPILARESTO
End If
If numerico = "7" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
quartonome = InputBox("quart ins")
Foglio1.Range("C11") = quartonome
quintonome = InputBox("quinto ins")
Foglio1.Range("C12") = quintonome
sestonome = InputBox("sesto ins")
Foglio1.Range("C13") = sestonome
settimonome = InputBox("settim ins")
Foglio1.Range("C14") = settimonome
COMPILARESTO
End If
If numerico = "8" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
quartonome = InputBox("quart ins")
Foglio1.Range("C11") = quartonome
quintonome = InputBox("quinto ins")
Foglio1.Range("C12") = quintonome
sestonome = InputBox("sesto ins")
Foglio1.Range("C13") = sestonome
settimonome = InputBox("settim ins")
Foglio1.Range("C14") = settimonome
ottavonome = InputBox("ottavo ins")
Foglio1.Range("C15") = ottavonome
COMPILARESTO
End If
If numerico = "9" Then
primonome = InputBox("primo inser")
Foglio1.Range("C8") = primonome
secondonome = InputBox("sec inser")
Foglio1.Range("C9") = secondonome
terzonome = InputBox("ter ins")
Foglio1.Range("C10") = terzonome
quartonome = InputBox("quart ins")
Foglio1.Range("C11") = quartonome
quintonome = InputBox("quinto ins")
Foglio1.Range("C12") = quintonome
sestonome = InputBox("sesto ins")
Foglio1.Range("C13") = sestonome
settimonome = InputBox("settim ins")
Foglio1.Range("C14") = settimonome
ottavonome = InputBox("ottavo ins")
Foglio1.Range("C15") = ottavonome
nononome = InputBox("nono ins")
Foglio1.Range("C16") = nononome
COMPILARESTO
End If
Sub Registra()
Foglio1.Range("d3") = Now
If Foglio1.Range("c8") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A2").PasteSpecial
Foglio1.Range("c8").Copy
Foglio2.Range("d2").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e2").PasteSpecial
End If
If Foglio1.Range("c9") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A3").PasteSpecial
Foglio1.Range("c9").Copy
Foglio2.Range("d3").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e3").PasteSpecial
End If
If Foglio1.Range("c10") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A4").PasteSpecial
Foglio1.Range("c10").Copy
Foglio2.Range("d4").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e4").PasteSpecial
End If
If Foglio1.Range("c11") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A5").PasteSpecial
Foglio1.Range("c11").Copy
Foglio2.Range("d5").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e5").PasteSpecial
End If
If Foglio1.Range("c12") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A6").PasteSpecial
Foglio1.Range("c12").Copy
Foglio2.Range("d6").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e6").PasteSpecial
End If
If Foglio1.Range("c13") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A7").PasteSpecial
Foglio1.Range("c13").Copy
Foglio2.Range("d7").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e7").PasteSpecial
End If
If Foglio1.Range("c14") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A8").PasteSpecial
Foglio1.Range("c14").Copy
Foglio2.Range("d8").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e8").PasteSpecial
End If
If Foglio1.Range("c15") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A9").PasteSpecial
Foglio1.Range("c15").Copy
Foglio2.Range("d9").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e9").PasteSpecial
End If
If Foglio1.Range("c16") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A10").PasteSpecial
Foglio1.Range("c16").Copy
Foglio2.Range("d10").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e10").PasteSpecial
End If
End Sub
If Foglio1.Range("c8") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A11").PasteSpecial
Foglio1.Range("c8").Copy
Foglio2.Range("d11").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e11").PasteSpecial
End If
If Foglio1.Range("c9") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A12").PasteSpecial
Foglio1.Range("c9").Copy
Foglio2.Range("d12").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e12").PasteSpecial
End If
If Foglio1.Range("c10") <> "" Then
Foglio1.Range("d3").Copy
Foglio2.Range("A13").PasteSpecial
Foglio1.Range("c10").Copy
Foglio2.Range("d13").PasteSpecial
Foglio1.Range("F23").Copy
Foglio2.Range("e13").PasteSpecial
End If
Sub Registra()
Dim myNext As Long
'
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 2).Resize(1, 7).Value = Foglio1.Range("AA1:AG1").Value
Foglio2.Cells(myNext, 1) = 1 + Application.WorksheetFunction.Max(Range("A1").Resize(myNext - 1))
End Sub
Sub Registra()
If Foglio1.Range("c8") <> "" Then
Foglio1.Range("d3") = Now
If Foglio1.Range("c8") <> "" Then '1
Foglio3.Range("A1") = Foglio1.Range("d3")
Foglio3.Range("D1") = Foglio1.Range("c8")
Foglio3.Range("E1") = Foglio1.Range("f23")
End If
If Foglio1.Range("c9") <> "" Then '2
Foglio3.Range("A2") = Foglio1.Range("d3")
Foglio3.Range("D2") = Foglio1.Range("c9")
Foglio3.Range("E2") = Foglio1.Range("f23")
End If
If Foglio1.Range("c10") <> "" Then '3
Foglio3.Range("A3") = Foglio1.Range("d3")
Foglio3.Range("D3") = Foglio1.Range("c10")
Foglio3.Range("E3") = Foglio1.Range("f23")
End If
If Foglio1.Range("c11") <> "" Then '4
Foglio3.Range("A4") = Foglio1.Range("d3")
Foglio3.Range("D4") = Foglio1.Range("c11")
Foglio3.Range("E4") = Foglio1.Range("f23")
End If
If Foglio1.Range("c12") <> "" Then '5
Foglio3.Range("A5") = Foglio1.Range("d3")
Foglio3.Range("D5") = Foglio1.Range("c12")
Foglio3.Range("E5") = Foglio1.Range("f23")
End If
If Foglio1.Range("c13") <> "" Then '6
Foglio3.Range("A6") = Foglio1.Range("d3")
Foglio3.Range("D6") = Foglio1.Range("c13")
Foglio3.Range("E6") = Foglio1.Range("f23")
End If
If Foglio1.Range("c14") <> "" Then '7
Foglio3.Range("A7") = Foglio1.Range("d3")
Foglio3.Range("D7") = Foglio1.Range("c14")
Foglio3.Range("E7") = Foglio1.Range("f23")
End If
If Foglio1.Range("c15") <> "" Then '8
Foglio3.Range("A8") = Foglio1.Range("d3")
Foglio3.Range("D8") = Foglio1.Range("c15")
Foglio3.Range("E8") = Foglio1.Range("f23")
End If
If Foglio1.Range("c16") <> "" Then '9
Foglio3.Range("A9") = Foglio1.Range("d3")
Foglio3.Range("D9") = Foglio1.Range("c16")
Foglio3.Range("E9") = Foglio1.Range("f23")
End If
Dim myNext As Long
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A1:G1").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A2:G2").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A3:G3").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A4:G4").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A5:G5").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A6:G6").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A7:G7").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A8:G8").Value
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(1, 7).Value = Foglio3.Range("A9:G9").Value
Else: MsgBox "Access denied.", vbInformation, "Campi vuoti ?"
End If
End Sub
myNext = Foglio2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Foglio2.Cells(myNext, 1).Resize(9, 7).Value = Foglio3.Range("A1:G9").Value
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
WIN10 Impossibile accedere - Riavvio continuo Autore: Andrea83pc |
Forum: Sistemi Operativi Windows Risposte: 2 |
Visitano il forum: Nessuno e 34 ospiti