anthony sbagliavo qui visto che stamattina le partite erano poche avevo selezionato fino alla cella 198 invece devo selezionare tutta la tabella da a9 : ae 1507
Range("A9:AE1507").Select
ed ora sembra funzionare bene, grazieeeeeeee
Moderatori: Anthony47, Flash30005
Anthony47 ha scritto:Bravo...
Togli pure dalla macro quegli inutili ActiveWindow.ScrollColumn
Ciao
If (j+1)>10 and j+1<15 Then 'Controlla colonne
'Compila manipolando il valore "H"
Else
'Compila normalmente
End if
If Col1 Then
Cells(i - kk, j + 1) = CDate(h)
If (Int(Cells(i - kk, j + 1)) <> Int(Range("Ab1"))) And Range("AB1") <> "" Then _
Cells(i - kk, j + 1).Clear: kk = kk + 1: Exit For
Else
Cells(i - kk, j + 1) = h '>>>
End If
If Col1 Then
Cells(i - kk, j + 1) = CDate(h)
If (Int(Cells(i - kk, j + 1)) <> Int(Range("Ab1"))) And Range("AB1") <> "" Then _
Cells(i - kk, j + 1).Clear: kk = kk + 1: Exit For
Else
If (j + 1) > 10 And (j + 1) < 15 And i > 1 Then
Cells(i - kk, j + 1) = CDbl(Replace(Replace(h, " ", ""), "€", ""))
Cells(i - kk, j + 1).NumberFormat = "$ #,##0.00"
Else
Cells(i - kk, j + 1) = h '>>>
End If
End If
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Visitano il forum: Nessuno e 44 ospiti