Moderatori: Anthony47, Flash30005
Option Explicit
Public I As Long, J As Long, RR As Long, Editore
Sub Scrivi_Libri()
Application.ScreenUpdating = False
Sheets("Foglio2").Cells.ClearContents
Sheets("Foglio2").[A1] = "Editore"
Sheets("Foglio2").[B1] = "Articolo"
Sheets("Foglio2").[C1] = "Autore"
Sheets("Foglio2").[D1] = "Titolo"
RR = Sheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
J = 2
For I = 1 To RR
If UCase(Sheets("Foglio1").Cells(I, 3)) = "ARTICOLO" Then
I = I + 1
End If
If UCase(Sheets("Foglio1").Cells(I, 3)) = "EDITORE" Then
Editore = Sheets("Foglio1").Cells(I, 4)
Else
Sheets("Foglio2").Cells(J, 1) = Editore
Sheets("Foglio2").Cells(J, 2) = Sheets("Foglio1").Cells(I, 3)
Sheets("Foglio2").Cells(J, 3) = Sheets("Foglio1").Cells(I, 4)
Sheets("Foglio2").Cells(J, 4) = Sheets("Foglio1").Cells(I, 5)
J = J + 1
End If
Next I
Sheets("Foglio2").Columns("A:D").EntireColumn.AutoFit
Application.ScreenUpdating = True
Sheets("Foglio2").Select
MsgBox "Elaborazione Effettuata"
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Stabilire righe e colonne da mostrare a schermo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 5 ospiti