Moderatori: Anthony47, Flash30005
ikwae ha scritto:Ciao a tutti …
A chi è interessato ad aiutarmi in allegato un file con tre fogli:
1) di nome “Originale” con tutti gli ambi ho preferito gli ambi che sono di più per avere una maggiore
scelta ma la stessa macro si può poi applicare ai terni e quaterne.
2) di nome “Info” con le semplici spiegazioni passo-passo sembrano complesse ma una volta capito il meccanismo (sperando che lo abbia spiegato bene) risultano semplicissime.
3) di nome “Fine” che è quello che mi auguro che la macro possa fare.
PARTENZA ARRIVO
------------------------------- ---------------------------------|-------
BA_Gr2_C-01 - 147 ambo Cagliari BA_Gr2_C-01 - 147 ambo Cagliari
28 28 18
BA_Gr2_C-01 - 145 ambo Genova BA_Gr2_C-01 - 145 ambo Genova
8 8 153-19
21 21 17
5 5 22
Sub GSAnthony()
Dim cNum As Long, I As Long
Dim CSUno As Long
'
lastb = Cells(Rows.Count, "B").End(xlUp).Row
For I = 2 To lastb
If Len(Cells(I, 2)) > 3 Then
cNum = CLng(Mid(Cells(I, 2), 15, 3))
CSUno = 0
Else
CSUno = CSUno + Cells(I, 2)
If cNum > 139 Then
If cNum + CSUno > 157 Then
Cells(I, 3) = cNum + CSUno - 157
Else
Cells(I, 3) = CStr(cNum + CSUno) & "-19"
End If
Else
If cNum + CSUno > 157 Then
Cells(I, 3) = cNum + CSUno
Else
Cells(I, 3) = cNum + CSUno
End If
End If
End If
Next I
MsgBox ("Completato...")
End Sub
Anthony47 ha scritto:A me fare i calcoli semplici semplici che non hanno logica mi viene sempre mal di testa; il risultato di questa emicrania
Sub GSAnthony_Aggiunta()
Dim I As Long, dopo As Long
'
dopo = 10
lastb = Cells(Rows.Count, "C").End(xlUp).Row
For I = 2 To lastb
If Cells(I, 3) <> "" And IsNumeric(Cells(I, 3)) Then
Cells(I, 3) = Cells(I, 3).Value & " dopo " & dopo & " = " & Cells(I, 3).Value + dopo
End If
Next I
MsgBox ("Completato...")
End Sub
If Cells(I, 3) <> "" And IsNumeric(Cells(I, 3)) Then
If Len(Cells(I + 1, 2)) > 3 Or I = LastB Then '<<< Aggiunto Questo Livello If /End If
Cells(I, 3) = Cells(I, 3).Value & " dopo " & dopo & " = " & Cells(I, 3).Value + dopo
End If
End If
Anthony47 ha scritto:A me fare i calcoli semplici semplici che non hanno logica mi viene sempre mal di testa; il risultato di questa emicrania:
Torna a Applicazioni Office Windows
Mettere tutto MAIUSCOLO un range di celle Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
inserisci valore in celle a seguito di condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 10 |
Codice per popolare celle con condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 12 ospiti