Ciao,
dopo aver fatto "Upload" ti restituisce dei link, rifai l'upload e gaurda con attenzione la pagina che ti viene proposta
Moderatori: Anthony47, Flash30005
Option Explicit
Public RR As Long, I As Long, J As Long, Gruppo As String, Descr_Gruppo As String
Sub Modifica_Struttura()
Application.ScreenUpdating = False
RR = Foglio1.Range("B" & Rows.Count).End(xlUp).Row
J = 1
Foglio2.Cells.ClearContents
Foglio2.Cells(J, 1) = "Gruppo"
Foglio2.Cells(J, 2) = "Descrizione Gruppo"
Foglio2.Cells(J, 3) = "Codice"
Foglio2.Cells(J, 4) = "Descrizione Codice"
Foglio2.Cells(J, 5) = "Unità di misura"
Foglio2.Cells(J, 6) = "Prezzo"
J = 2
For I = 1 To RR
If UCase(Trim(Foglio1.Cells(I, 2))) = "GRUPPO" Then
Gruppo = Foglio1.Cells(I, 3)
Descr_Gruppo = Foglio1.Cells(I, 4)
Foglio2.Cells(J, 1) = Foglio1.Cells(I, 3)
Foglio2.Cells(J, 2) = Foglio1.Cells(I, 4)
Else
If Foglio1.Cells(I, 2) <> "" And UCase(Trim(Foglio1.Cells(I, 5))) = "" Then
Foglio2.Cells(J, 1) = Gruppo
Foglio2.Cells(J, 2) = Descr_Gruppo
Foglio2.Cells(J, 3) = Foglio1.Cells(I, 2)
Foglio2.Cells(J, 4) = Foglio1.Cells(I + 1, 2)
Foglio2.Cells(J, 5) = Foglio1.Cells(I + 1, 3)
Foglio2.Cells(J, 6) = Foglio1.Cells(I + 1, 5)
J = J + 1
End If
End If
Next I
Columns("A:A").NumberFormat = "0000"
Columns("F:F").NumberFormat = "0.000"
Columns("A:F").EntireColumn.AutoFit
ActiveWindow.Zoom = 90
Application.ScreenUpdating = False
MsgBox "Elaborazione Effettuata"
End Sub
Torna a Applicazioni Office Windows
cerca il più grande numero di celle vuote in un intervallo Autore: papiriof |
Forum: Applicazioni Office Windows Risposte: 2 |
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: 10 |
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 |
Visitano il forum: Nessuno e 77 ospiti