si, infatti c'era un errore nel caso che i tavoli fossero stati inferiori a 50
ora ho corretto la macro ma ti invio direttamente il file
download
Fai sapere
ciao
Moderatori: Anthony47, Flash30005
Sub StampaModuli()
RR = Foglio1.Range("D" & Rows.Count).End(xlUp).Row
For SC = 8 To RR Step 8
For Tv = 1 To 8 Step 2
Tav = Foglio1.Range("C" & SC + Tv - 1).Value
Tavolo = "Tavolo " & Format(Tav, "00")
CoppiaF1 = Foglio1.Range("D" & SC + Tv - 1).Value
CoppiaF2 = Foglio1.Range("E" & SC + Tv - 1).Value
PuntiF = Foglio1.Range("V" & SC + Tv - 1).Value
CoppiaM1 = Foglio1.Range("D" & SC + Tv).Value
CoppiaM2 = Foglio1.Range("E" & SC + Tv).Value
PuntiM = Foglio1.Range("V" & SC + Tv).Value
Col = ((Tav + 1) Mod 2) * 6 + 4
Riga = Int(Tv / 4) * 24 + 4
Foglio2.Cells(Riga, Col).Value = PuntiF
Foglio2.Cells(Riga, Col + 2).Value = PuntiM
Foglio2.Cells(Riga - 2, Col + 3).Value = Tavolo
Foglio2.Cells(Riga - 2, Col + 3).Characters(Start:=8, Length:=2).Font.Size = 16
Foglio2.Cells(Riga, Col + 1).Value = CoppiaF1
Foglio2.Cells(Riga + 1, Col + 1).Value = CoppiaF2
Foglio2.Cells(Riga, Col + 3).Value = CoppiaM1
Foglio2.Cells(Riga + 1, Col + 3).Value = CoppiaM2
Next Tv
ActiveWindow.SelectedSheets.PrintOut , Copies:=1, Collate:=True
For PPM = 1 To 4
Col = ((PPM + 1) Mod 2) * 6 + 4
Riga = Int((PPM + 1) / 4) * 24 + 4
Foglio2.Cells(Riga, Col).Value = ""
Foglio2.Cells(Riga, Col + 2).Value = ""
Foglio2.Cells(Riga - 2, Col + 3).Value = ""
Foglio2.Cells(Riga, Col + 1).Value = ""
Foglio2.Cells(Riga + 1, Col + 1).Value = ""
Foglio2.Cells(Riga, Col + 3).Value = ""
Foglio2.Cells(Riga + 1, Col + 3).Value = ""
Next PPM
Next SC
End Sub
Torna a Applicazioni Office Windows
Excel Estrazione casuale testo da colonna per bingo ca**ate Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 7 |
Ottenere numero casuale con pesi diversi Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 7 |
Quesito (forse) facile sulla riproduzione casuale di media p Autore: nippon |
Forum: Audio/Video e masterizzazione Risposte: 15 |
Sorteggio torneo in modo casuale con condizioni Autore: Mircobuo |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Nessuno e 94 ospiti