Moderatori: Anthony47, Flash30005
Sub Archivia()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Sheets("Foglio1")
Set Ws2 = Sheets("Foglio2")
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
If Ws1.Range("G" & RR1).Value = 0 Then
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Rows(RR1).Copy
Ws2.Range("A" & UR2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next RR1
Application.CutCopyMode = False
End Sub
Private Sub qt_AfterRefresh(ByVal Success As Boolean)
If Not Success Then Exit Sub
Dim LastSh2 As Long, Cell As Range, Sh1
'
With Sheets("Foglio1")
If Application.Intersect(.Range("B2").CurrentRegion, .Range("G:G")) Is Nothing Then Exit Sub
'
For Each Cell In Application.Intersect(.Range("B2").CurrentRegion, .Range("G:G"))
If Cell.Value = 0 Then
Cell.EntireRow.Copy
Sheets("Foglio3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next Cell
End With
End Sub
Tu non sarai un guro ma noi (mi sento di parlare anche per Flash) non siamo stregoni che capiamo anche le cose non dette...ho provato i codici sia di flash che di anthony ma purtroppo senza esito.
forse ho dimenticato di aggiungere che non sono certo un guru di excel
Ws1.Rows(RR1).Copy
If Ws1.Range("G" & RR1).Value = 0 Then
If Ws1.Range("G" & RR1).Value = 0 And Ws1.Range("G" & RR1).Value <> "" Then
sub TuaMacroQueryWev()
'...codice macro queryweb
'....
Call Archivia '<<<< inserire qui la chiamata alla macro Archivia
End Sub
ThisWorkbook.Sheets("Foglio1").Range("B5").QueryTable.Refresh BackgroundQuery:=False
Ws1.Range("A" & RR1 & ", D" & RR1 & ", M" & RR1 & ", P" & RR1).Copy
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
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 |
Visitano il forum: Nessuno e 14 ospiti