Moderatori: Anthony47, Flash30005
Sub RefreshAll_Scrivedat()
'Updateby Extendoffice 20161109
Dim xpt As PivotTable
With ActiveSheet
.Protect UserInterfaceOnly:=True
For Each xpt In .PivotTables
xpt.RefreshTable
Next xpt
End With
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Users\pippo\Desktop\"
Open Perc & Range("M2").Value & "output.dat" For Output As #1
For RR = 1 To UR
Print #1, Range("A" & RR).Value
Next RR
Close #1
End Sub
For RR = 1 To UR
If Len(Range("A" & RR).Value) > 0 Then
Print #1, Range("A" & RR).Value
End If
Next RR
Con la mia modifica la macro esegue il comando Print #1 solo sulle righe dove la lunghezza della stringa è maggiore di Zero; quindi salterà le celle vuote o contenenti ""vedo che tu dai il comando alla macro di considerare righe >0 tuttavia in queste righe abbiamo in realtà dati alfanumerici. Evidentemente il >0 corrisponde al <>"" in tal caso?
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: 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 59 ospiti