|
Login
  • Page:
  • 1

TOPIC: colorare righe e finché vi sono dati all'interno

colorare righe e finché vi sono dati all'interno 8 years 4 months ago #7733

  • pikke
  • pikke's Avatar
  • OFFLINE
  • Junior Boarder
  • Posts: 33
  • Thank you received: 1
  • Karma: -1
Buona sera,
Ho letto sui vari forum varie discussioni ma non sono riuscito a capire come colorare le righe fino all'ultima che contiene dati.
Avrei bisogno di evidenziare delle righe che ogni volta cambiano .
1 ) capire come si trova l'ultima riga penso con un ciclo esempio:
For r = 1 To Cells(65536, 1).End(xlUp).Row .
2) evidenziare da riga 1 a colonna 5 l'intera riga e questo finché non trovo la riga vuota(senza dati) penso con un ciclo IF ma non riesco ad andare avanti.
Grazie a chiunque mi risponda.
Saluti,pikke
The administrator has disabled public write access.

colorare righe e finché vi sono dati all'interno 8 years 4 months ago #7734

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Pikke,
scusami, ma non ho capito molto del tuo post, questa ad esempio:
evidenziare da riga 1 a colonna 5 l'intera riga e questo finché non trovo la riga vuota(senza dati)
dovresti spiegare meglio, comunque questa:
Sub Macro1()
ActiveSheet.usedrange.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
End Sub

colora di rosso le celle utilizzate nel tuo foglio (anche se vi sono righe interamente vuote all'interno del range utilizzato).
Fai sapere.
ciao, Lo
Last Edit: 8 years 4 months ago by lorenzo1957.
The administrator has disabled public write access.

colorare righe e finché vi sono dati all'interno 8 years 4 months ago #7735

  • pikke
  • pikke's Avatar
  • OFFLINE
  • Junior Boarder
  • Posts: 33
  • Thank you received: 1
  • Karma: -1
lorenzo1957 wrote:
Ciao Pikke,
scusami, ma non ho capito molto del tuo post, questa ad esempio:
evidenziare da riga 1 a colonna 5 l'intera riga e questo finché non trovo la riga vuota(senza dati)
dovresti spiegare meglio, comunque questa:
Sub Macro1()
ActiveSheet.usedrange.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
End Sub

colora di rosso le celle utilizzate nel tuo foglio (anche se vi sono righe interamente vuote all'interno del range utilizzato).
Fai sapere.
ciao, Lo
Ciao Lorenzo1957 grazie per avermi risposto,
Scusami se non mi sono spiegato ma mi trovo un pò in difficoltà con il vba anche se mi sto documentando con il web e con il libro di Alessandra Salvaggio Excel 2010 macro e Vba,ero abituato a ragionare con il basic.
Il codice che mi hai suggerito è giusto ma devo evidenziare le righe fino alla colonna D come la devo modificare ?
saluti e Grazie.
pikke
Last Edit: 8 years 4 months ago by pikke.
The administrator has disabled public write access.

colorare righe e finché vi sono dati all'interno 8 years 4 months ago #7736

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Pikke,
prova:
Sub macro2()
Range("a1").Select
UltimaRiga = Selection.End(xlDown).Row
Range("a1", "D" & UltimaRiga).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Range("a1").Select
End Sub
The administrator has disabled public write access.

colorare righe e finché vi sono dati all'interno 8 years 4 months ago #7745

  • pikke
  • pikke's Avatar
  • OFFLINE
  • Junior Boarder
  • Posts: 33
  • Thank you received: 1
  • Karma: -1
Grazie Lorenzo1957,
mi sei stato d'aiuto.
Saluti,pikke
The administrator has disabled public write access.

colorare righe e finché vi sono dati all'interno 8 years 4 months ago #7790

  • luigiguarin
  • luigiguarin's Avatar
  • OFFLINE
  • Senior Boarder
  • Posts: 42
  • Karma: -1
SI PUO AVERE LA POSSIBILITÀ DI ALLEGARE IL FILE ?
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.479 seconds