Definizione range di più colonne

[Ricky]

Ciao,
è possibile definire un intervallo composto da più colonne,
con la funzione Set rng = ?

Mi servirebbe fare un controllo su più colonne
in modo che se il valore della formula SE, contenuto nella cella,
è uguale a VERO,
mi vengano copiate in un altro foglio le celle con offset(0,-1) e (0,-2)

Spero di essermi fatto capire :-)
Ricky

[Mauro Gamberini]

Post by Ricky
è possibile definire un intervallo composto da più colonne,
con la funzione Set rng = ?

Vediamo se ho capito:

Dim rng As Range

'Tutte le colonne A,C,G?
Set rng = ActiveSheet.Range("A:A,C:C,G:G")
'I Range A1:A15 e B6:B10?
Set rng = Ativesheet.Range("A1:A15,B6:B10")

Questo per ciclare all'interno dei range:

Dim rng As Range
Dim c As Range

Set rng = Ativesheet.Range("A1:A15,B6:B10")
For Each c In rng
If c.Value = "Pippo" Then
'Quello che vuoi
Else
'Quello che vuoi
Enfd If
Next
Set rng = Nothing

[Ricky]

Post by Mauro Gamberini

Post by Ricky
è possibile definire un intervallo composto da più colonne,
con la funzione Set rng = ?

Dim rng As Range
'Tutte le colonne A,C,G?
Set rng = ActiveSheet.Range("A:A,C:C,G:G")
'I Range A1:A15 e B6:B10?
Set rng = Ativesheet.Range("A1:A15,B6:B10")
Dim rng As Range
Dim c As Range
Set rng = Ativesheet.Range("A1:A15,B6:B10")
For Each c In rng
If c.Value = "Pippo" Then
'Quello che vuoi
Else
'Quello che vuoi
Enfd If
Next
Set rng = Nothing

Ciao Mauro,
grazie per l'aiuto!
Ti spiego quello che stò facendo.
Ho una serie di modelli di risposta a domande fatte dalla clientela.
Nella colonne del range impostato, ho la categoria dell'argomento (celle E8,
I8,M8;...)
(Fatturazione, Problemi tecnici, etc)
ed in ogni colonna inserisco i mie modelli caratterizzati da:

sottocategoria argomento (c.Offset(0, -3))
Testo del modello
Data creazione (c.Offset(0, -1))
Formula che inserisce "NEW" se il modello è stato inserito da meno di 15
giorni (c.Offset(0, 0))

B C
D E
8 categoria argomento
9 sottocategoria argomento Testo del modello Data creazione
Formula


Ho modificato la macro in base alle mie esigenze,
ma ci sarebbe bisogno di un paio di aggiunte.
La prima è quella di far si che, compilata una riga,
vada a capo per inserine un'altra
(avevo dimenticato di specifiacare che la macro
troverà più di un "pippo".... nel range)

La seconda è far in modo di inserire anche l'intestazione
della colonna a cui appartiene "pippo"

Public Sub PROVA()
Dim rng As Range
Dim c As Range

Set rng = Sheet1.Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y")
For Each c In rng
If c.Value = "NEW" Then
'Foglio4.Range("A1") = Intestazione della colonna di appartenenza
Foglio4.Range("B1") = c.Offset(0, -3).Value
Foglio4.Range("C1") = c.Offset(0, -1).Value
End If
Next

Set rng = Nothing
End Sub


Buona giornata
Ricky

[Mauro Gamberini]

Post by Ricky
La prima è quella di far si che, compilata una riga,
vada a capo per inserine un'altra
(avevo dimenticato di specifiacare che la macro
troverà più di un "pippo".... nel range)
La seconda è far in modo di inserire anche l'intestazione
della colonna a cui appartiene "pippo"
Set rng = Sheet1.Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y")
For Each c In rng
If c.Value = "NEW" Then
Foglio4.Range("A655636")End(xlup).offset(1,0).value =
.cells(1,c.row).value
Foglio4.Range("B655636")End(xlup).offset(1,0).value =
c.Offset(0, -3).Value
Foglio4.Range("C655636")End(xlup).offset(1,0).value =
c.Offset(0, -1).Value
End If
Next
Set rng = Nothing

Scrotta a mano in OE, provala.

[Mauro Gamberini]

Post by Mauro Gamberini
Scrotta

Scrotta? o Gesù...
........vabbè.

Ancora una cosa.
Se(se) non scrivi *sempre* nelle celle di tutte le colonne,
fai End(xlUp) sulla colonna nella quale *sicuramente* vai a scrivere
e poi riempi le celle sulla stessa riga tramite gli Offset.

[Franz Verga]

Post by Mauro Gamberini

Post by Mauro Gamberini
Scrotta

Scrotta? o Gesù...
........vabbè.

Ma allora è un virus che gira nell'aria...

[Ricky]

Post by Mauro Gamberini

Post by Mauro Gamberini
Scrotta

Scrotta? o Gesù...
........vabbè.
Ancora una cosa.
Se(se) non scrivi *sempre* nelle celle di tutte le colonne,
fai End(xlUp) sulla colonna nella quale *sicuramente* vai a scrivere
e poi riempi le celle sulla stessa riga tramite gli Offset.
--
---------------------------
Mauro Gamberini

Post by Mauro Gamberini
Scrotta a mano in OE

All'inizio mi sono detto:
si tratta di uno slang a me sconosciuto!
Fammi andare a controllare sulla raccolta di acronimi del NG...!
:-)

Ho provato il codice, inserendo il punto
prima di End(xlUp)
(lo sò che hai scritto codice su OE :-) )
ma ottengo errore
Metodo Range dell'oggetto.... non riuscito

Tentando di scoprire l'arcano, ho limitato il range solo alla colonna E
(accertando che tutte le celle fossero "piene")

Per quanto riguarda la "categoria" del modello,
che limitando il range ad E, si trova in B8,
ho modificato in c.Cells(8, c.column - 3).Value,
ma non mi restituisce comunque il valore.

Questo VBA....

Ricky


Public Sub PROVA_2()
Dim rng As Range
Dim c As Range

Set rng = Sheet1.Range("E:E")
For Each c In rng
If c.Value = "NEW" Then
Foglio4.Range("A65536").End(xlUp).Offset(1, 0).Value = c.Cells(8,
c.column - 3).Value
Foglio4.Range("B65636").End(xlUp).Offset(1, 0).Value =
c.Offset(0, -3).Value
Foglio4.Range("C65636").End(xlUp).Offset(1, 0).Value =
c.Offset(0, -1).Value
End If
Next c

Set rng = Nothing
End Sub

[Ricky]

Post by Mauro Gamberini

Post by Ricky
La prima è quella di far si che, compilata una riga,
vada a capo per inserine un'altra
(avevo dimenticato di specifiacare che la macro
troverà più di un "pippo".... nel range)
La seconda è far in modo di inserire anche l'intestazione
della colonna a cui appartiene "pippo"
Set rng = Sheet1.Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y")
For Each c In rng
If c.Value = "NEW" Then
Foglio4.Range("A655636")End(xlup).offset(1,0).value =
.cells(1,c.row).value
Foglio4.Range("B655636")End(xlup).offset(1,0).value =
c.Offset(0, -3).Value
Foglio4.Range("C655636")End(xlup).offset(1,0).value =
c.Offset(0, -1).Value
End If
Next
Set rng = Nothing

Scrotta a mano in OE, provala.
--
---------------------------
Mauro Gamberini

[Norman Jones]

Post by Ricky
Ciao,
è possibile definire un intervallo composto da più colonne,
con la funzione Set rng = ?
Mi servirebbe fare un controllo su più colonne
in modo che se il valore della formula SE, contenuto nella cella,
è uguale a VERO,
mi vengano copiate in un altro foglio le celle con offset(0,-1) e (0,-2)
Spero di essermi fatto capire :-)
Ricky

'-----------------------

Ciao Ricky:

Non sono sicuro che abbia capito bene, ma forse il codice seguente ti
aiuterà:

Public Sub Tester8001()
Dim WB As Workbook
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim Rng1 As Range
Dim RngDest As Range
Dim rng2 As Range
Dim rCell As Range

Set WB = ActiveWorkbook '<<=== CAMBIARE
Set SH1 = WB.Sheets("Sheet5") '<<=== CAMBIARE
Set Rng1 = SH1.Range("C1:C100") '<<=== CAMBIARE
Set SH2 = WB.Sheets("Sheet1")
Set RngDest = _
SH2.Cells(Rows.Count, "A").End(xlUp)(2) '<<=== CAMBIARE

On Error Resume Next
Set rng2 = Rng1.SpecialCells(xlCellTypeFormulas, xlLogical)
On Error GoTo 0

If Not rng2 Is Nothing Then
For Each rCell In rng2.Cells
With rCell
If .Value Then
Set RngDest = SH2.Cells(Rows.Count, "A"). _
End(xlUp)(2) '<<=== CAMBIARE
rCell(1, -1).Resize(1, 2).Copy Destination:=RngDest
End If
End With
Next rCell
End If
End Sub
'<<=============

---
Regards,
Norman

[Ricky]

Post by Norman Jones

Post by Ricky
Ciao,
è possibile definire un intervallo composto da più colonne,
con la funzione Set rng = ?
Mi servirebbe fare un controllo su più colonne
in modo che se il valore della formula SE, contenuto nella cella,
è uguale a VERO,
mi vengano copiate in un altro foglio le celle con offset(0,-1) e (0,-2)
Spero di essermi fatto capire :-)
Ricky

'-----------------------
Non sono sicuro che abbia capito bene, ma forse il codice seguente ti
Public Sub Tester8001()
Dim WB As Workbook
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim Rng1 As Range
Dim RngDest As Range
Dim rng2 As Range
Dim rCell As Range
Set WB = ActiveWorkbook '<<=== CAMBIARE
Set SH1 = WB.Sheets("Sheet5") '<<=== CAMBIARE
Set Rng1 = SH1.Range("C1:C100") '<<=== CAMBIARE
Set SH2 = WB.Sheets("Sheet1")
Set RngDest = _
SH2.Cells(Rows.Count, "A").End(xlUp)(2) '<<=== CAMBIARE
On Error Resume Next
Set rng2 = Rng1.SpecialCells(xlCellTypeFormulas, xlLogical)
On Error GoTo 0
If Not rng2 Is Nothing Then
For Each rCell In rng2.Cells
With rCell
If .Value Then
Set RngDest = SH2.Cells(Rows.Count, "A"). _
End(xlUp)(2) '<<=== CAMBIARE
rCell(1, -1).Resize(1, 2).Copy Destination:=RngDest
End If
End With
Next rCell
End If
End Sub
'<<=============
---
Regards,
Norman

Ciao Norman,
grazie per l'aiuto!
Adesso provo a risolvere seguendo la risposta di Mauro,
dopodichè provo il tuo metodo.
Dal momento che siete tutti così cortesi nel rispondere,
in caso di più risposte, per non far torto a nessuno,
parto dalla prima arrivata e poi seguo.

Ricky

[Ricky]

Post by Norman Jones

Post by Ricky
Ciao,
è possibile definire un intervallo composto da più colonne,
con la funzione Set rng = ?
Mi servirebbe fare un controllo su più colonne
in modo che se il valore della formula SE, contenuto nella cella,
è uguale a VERO,
mi vengano copiate in un altro foglio le celle con offset(0,-1) e (0,-2)
Spero di essermi fatto capire :-)
Ricky

'-----------------------
Non sono sicuro che abbia capito bene, ma forse il codice seguente ti
Public Sub Tester8001()
Dim WB As Workbook
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim Rng1 As Range
Dim RngDest As Range
Dim rng2 As Range
Dim rCell As Range
Set WB = ActiveWorkbook '<<=== CAMBIARE
Set SH1 = WB.Sheets("Sheet5") '<<=== CAMBIARE
Set Rng1 = SH1.Range("C1:C100") '<<=== CAMBIARE
Set SH2 = WB.Sheets("Sheet1")
Set RngDest = _
SH2.Cells(Rows.Count, "A").End(xlUp)(2) '<<=== CAMBIARE
On Error Resume Next
Set rng2 = Rng1.SpecialCells(xlCellTypeFormulas, xlLogical)
On Error GoTo 0
If Not rng2 Is Nothing Then
For Each rCell In rng2.Cells
With rCell
If .Value Then
Set RngDest = SH2.Cells(Rows.Count, "A"). _
End(xlUp)(2) '<<=== CAMBIARE
rCell(1, -1).Resize(1, 2).Copy Destination:=RngDest
End If
End With
Next rCell
End If
End Sub
'<<=============

Ciao Norman,
ho provato ad adattare il codice ai miei dati,
ma credo di non aver capito le istruzioni che dai.
Forse oggi sono un pò cotto....

Post by Norman Jones
Set rng2 = Rng1.SpecialCells(xlCellTypeFormulas, xlLogical)

Fa riferimento alla formula trascinata nella colonna E?
=SE(E(D17<>"";D17+14>OGGI());"NEW";"")

Mi sà che per me, oggi è meglio prendere un break....

Ricky

[Norman Jones]

Ciao Ricky,

Post by Ricky
ho provato ad adattare il codice ai miei dati,
ma credo di non aver capito le istruzioni che dai.
Forse oggi sono un pò cotto....

Post by Norman Jones
Set rng2 = Rng1.SpecialCells(xlCellTypeFormulas, xlLogical)

Fa riferimento alla formula trascinata nella colonna E?
=SE(E(D17<>"";D17+14>OGGI());"NEW";"")
Mi sà che per me, oggi è meglio prendere un break....

No Ricky, sono io che non ha capito: pensavo di una formula di tipo:

=SE(E(D17<>"";D17+14>OGGI());VERO;"")

Comunque, prova:
'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim Rng1 As Range
Dim Rng2 As Range
Dim RngDest As Range
Dim rCell As Range
Const RigaCategoria = 8 '<<=== CAMBIARE

Application.ScreenUpdating = True

Set WB = ActiveWorkbook '<<=== CAMBIARE
Set SH1 = WB.Sheets("Foglio1") '<<=== CAMBIARE
Set SH2 = WB.Sheets("Foglio4") '<<=== CAMBIARE

Set Rng1 = SH1.Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y")

On Error Resume Next
Set Rng2 = Rng1.SpecialCells(xlCellTypeFormulas, xlConstants)
On Error GoTo 0

If Rng2 Is Nothing Then Exit Sub

On Error Resume Next
Rng2.Replace What:="""NEW""", _
Replacement:="True", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
If Err.Number <> 0 Then Exit Sub
On Error GoTo 0

Set Rng2 = Rng2.SpecialCells(xlCellTypeFormulas, xlLogical)

Set RngDest = SH2.Cells(Rows.Count, "A").End(xlUp)

For Each rCell In Rng2.Cells
With rCell
Set RngDest = RngDest(2)
RngDest.Value = SH1.Cells(RigaCategoria, rCell.Column).Value
RngDest(1, 2).Value = rCell.Offset(0, -3).Value
RngDest(1, 3).Value = rCell.Offset(0, -1).Value
End With
Next rCell

Rng2.Replace What:="TRUE", _
Replacement:="""NEW""", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False

Application.ScreenUpdating = False

End Sub
'<<=============

---
Regards,
Norman

[Norman Jones]

Ciao Ricky,

Un Typo!

Post by Norman Jones
Application.ScreenUpdating = True

e

Post by Norman Jones
Application.ScreenUpdating = False

Dovrebbero essere invertiti. i.e.:

Application.ScreenUpdating = False
e
Application.ScreenUpdating = True

---
Regards,
Norman

[Ricky]

Ciao Norman, ciao Mauro!
Ho risolto il problema attraverso la macor che riporto.
Vorrei però migliorarla con quanto segue:

1. vorrei limitare il range impostato,
limitandolo solo alle celle non vuote (o meglio che non contengono formula)
E8:("E65536").End(xlUp) - I8:("I65536").End(xlUp) etc

2. dal momento che le colonne distano tra loro sempre di 4 colonne,
vorrei implementare il punto 1, aggiungendo la funzione "Step"

Buona giornata
Ricky

Public Sub PROVA()
Dim rng As Range
Dim c As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Set rng =
Sheet1.Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y,AC:AC,AG:AG,AH:AH,AO:AO,AS:AS,AW:AW,BA:BA")
For Each c In rng
If c.Value = "NEW" Then
r = c.Row - 8
col = c.Column
nr = Sheet4.Range("A65536").End(xlUp).Row
Sheet4.Cells(nr + 1, 1) = c.Offset(-r, -3).Value
------->l'intestazione della colonna
Sheet4.Cells(nr + 1, 2) = c.Offset(0, -3).Value
Sheet4.Cells(nr + 1, 3) = c.Offset(0, -1).Value
End If
Next

Set rng = Nothing

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

[Norman Jones]

Ricky ha scritto:
.

Post by Ricky
Ciao Norman, ciao Mauro!
Ho risolto il problema attraverso la macor che riporto.
1. vorrei limitare il range impostato,
limitandolo solo alle celle non vuote (o meglio che non contengono formula)
E8:("E65536").End(xlUp) - I8:("I65536").End(xlUp) etc
2. dal momento che le colonne distano tra loro sempre di 4 colonne,
vorrei implementare il punto 1, aggiungendo la funzione "Step"
Buona giornata
Ricky
Public Sub PROVA()
Dim rng As Range
Dim c As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Set rng =
Sheet1.Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y,AC:AC,AG:AG,AH:AH,AO:AO,AS:AS,AW:AW,BA:BA")
For Each c In rng
If c.Value = "NEW" Then
r = c.Row - 8
col = c.Column
nr = Sheet4.Range("A65536").End(xlUp).Row
Sheet4.Cells(nr + 1, 1) = c.Offset(-r, -3).Value
------->l'intestazione della colonna
Sheet4.Cells(nr + 1, 2) = c.Offset(0, -3).Value
Sheet4.Cells(nr + 1, 3) = c.Offset(0, -1).Value
End If
Next
Set rng = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

'----------------------------------------



Ciao Ricky,



Non capisci più niente!

Post by Ricky
limitandolo solo alle celle non vuote (o meglio che non contengono formula)
Mi servirebbe fare un controllo su più colonne
in modo che se il valore della formula SE, contenuto nella cella,
è uguale a VERO,
mi vengano copiate in un altro foglio le celle con offset(0,-1) e (0,-2)
Fa riferimento alla formula trascinata nella colonna E?
=SE(E(D17<>"";D17+14>OGGI());"NEW";"")

A proposito, la mia ultima macro si limita alle celle non vuote - vedi
l'uso del metodo SpecialCells.



In ogni modo, se si parlasse dei valori (anziché le formule), sarebbe molto
facile da adattare la mia ultima macro. Tuttavia, prima della continuare,
vorrei capire i tuoi dati!





---
Regards,
Norman

[Ricky]

Post by Norman Jones
Ciao Ricky,
Non capisci più niente!

:-) in effetti stamattina ero ancora un pò assonnato...

Post by Norman Jones

Post by Ricky
limitandolo solo alle celle non vuote (o meglio che non contengono formula)

Nella colonna E, e nelle altre, ci sono le formule SE,
ma per alleggerire il file, già molto pesante...
le trascino di volta in volta fino alla riga in cui appare l'ultimo modello
inserito.

Post by Norman Jones

Post by Ricky
Mi servirebbe fare un controllo su più colonne
in modo che se il valore della formula SE, contenuto nella cella, è
uguale a VERO,
mi vengano copiate in un altro foglio le celle con offset(0,-1) e (0,-2)
Fa riferimento alla formula trascinata nella colonna E?
=SE(E(D17<>"";D17+14>OGGI());"NEW";"")

A proposito, la mia ultima macro si limita alle celle non vuote - vedi
l'uso del metodo SpecialCells.
In ogni modo, se si parlasse dei valori (anziché le formule), sarebbe
molto facile da adattare la mia ultima macro.

Non vorrei che pensassi che io snobbassi la tua macro!
Come avevo detto prima, ho iniziato ad analizzare la prima soluzione
proposta, per poi passare alla tua

Post by Norman Jones
Tuttavia, prima della continuare, vorrei capire i tuoi dati!

B C
D E

8 categoria argomento
9 sottocategoria argomento Testo del modello Data creazione
=SE(E(D9<>"";D9+14>OGGI());"NEW";"")
10 sottocategoria argomento Testo del modello Data creazione
=SE(E(D10<>"";D10+14>OGGI());"NEW";"")
11 sottocategoria argomento Testo del modello Data creazione
=SE(E(D11<>"";D11+14>OGGI());"NEW";"")
12 sottocategoria argomento Testo del modello Data creazione
=SE(E(D12<>"";D12+14>OGGI());"NEW";"")

nelle colonne vicine...(ipotizzando che ci siano solo 2 modelli)

F G
H I
8 categoria argomento
9 sottocategoria argomento Testo del modello Data creazione
=SE(E(H9<>"";H9+14>OGGI());"NEW";"")
10 sottocategoria argomento Testo del modello Data creazione
=SE(E(H10<>"";H10+14>OGGI());"NEW";"")
11 ------------------------------ totalmente
vuota-------------------------------------------------------------------
12 ------------------------------ totalmente
vuota-------------------------------------------------------------------


Ricky

[Ricky]

Post by Norman Jones
Ciao Ricky,
Un Typo!

Post by Norman Jones
Application.ScreenUpdating = True

e

Post by Norman Jones
Application.ScreenUpdating = False

Application.ScreenUpdating = False
e
Application.ScreenUpdating = True

Cao Norman,
ho provato il tuo codice e ottengo il risultato voluto.
Ho dovuto solo sostituire:

RngDest.Value = SH1.Cells(RigaCategoria, rCell.Column).Value
con
RngDest.Value = SH1.Cells(RigaCategoria, rCell.Column - 3).Value

per ottenere l'intestazione della colonna

Non ho però capito come mai sostituisce ad esempio
=SE(E(D20<>"";D20+14>OGGI());"NEW";"")
con
=SE(E(D20<>"";D20+14>OGGI());VERO;"")
quando il risultato della formula non restituisce "NEW"

Buona serata
Ricky

[Norman Jones]

Ciao Ricky,

Post by Ricky
Non ho però capito come mai sostituisce ad esempio
=SE(E(D20<>"";D20+14>OGGI());"NEW";"")
con
=SE(E(D20<>"";D20+14>OGGI());VERO;"")
quando il risultato della formula non restituisce "NEW"

Sto sostituendo il valore "NEW" all'interno della formula; non sto
sostituendo il risultato della formula.


---
Regards,
Norman

[Norman Jones]

Ciao Ricky,

Post by Norman Jones
If Err.Number <> 0 Then Exit Sub

con:

If Err.Number <> 0 And Err.Number <> 40040 Then Exit Sub


---
Regards,
Norman