Ciao a tutti di nuovo!
Esiste un modo per nascondere e/o scoprire una riga in base al contenuto di una cella della riga stessa???
grazie
Moderatori: Anthony47, Flash30005
With Range("A1")
If .Value = "Pippo" then .EntireRow.Hidden = True else .EntireRow.Hidden = False
End With
Range("A1") .EntireRow.Hidden = Range("A1") <> "Pippo"
Option Explicit
Option Compare Text
Sub Nascondi_Celle()
Dim UR As Long, I As Long, Nascoste As Long, Messaggio As String, Testo_per_Nascondere As String
UR = Range("A" & Rows.Count).End(xlUp).Row
Nascoste = 0
Testo_per_Nascondere = "PIPPO" ' <<----------- QUI devi inserire il contenuto per il quale vuoi nascondere le righe
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = False
For I = 2 To UR
If Sheets("Foglio1").Cells(I, 1).Value = Testo_per_Nascondere Then
Sheets("Foglio1").Cells(I, 1).EntireRow.Hidden = True
Nascoste = Nascoste + 1
End If
Next I
Application.ScreenUpdating = True
If Nascoste > 0 Then
Messaggio = "Sono state nascoste: " & Nascoste & " righe"
Else
Messaggio = "Non sono state nascoste righe"
End If
MsgBox Messaggio
End Sub
Cells (I , 1)
Cells.EntireRow.Hidden = False
Valeee1987 ha scritto:... se si inserisce il numero di mesi del contratto in una determinata cella C41 (da considerare che questa può variare e può divenire C43,45 etc) e sotto questa cella ho creato una tabella per il primo anno, una per il secondo e una per il 3 con degli elenchi a discesa in modo da poter selezionare il servizio utile in base al cliente.
Sub TROVA_TXT()
Cells.EntireRow.Hidden = False
NC = Application.WorksheetFunction.CountIf(Range("A2:IV65000"), "*" & Cells(1, 1) & "*")
For I = 2 To 40
If Cells(I, 4) <> "*" & Cells(1, 1) & "*" Then
Rows(I).EntireRow.Hidden = True
Else
Cells(I, 4).Interior.ColorIndex = 44
End If
Next I
If Len(Cells(I, 4)) <> Len(Replace(Cells(I, 4), Cells(I, 1), "")) Then '<< MODIFICATA
Rows(I).EntireRow.Hidden = True
'etc etc
Sub TROVA_TXT2()
Cells.Interior.ColorIndex = xlNone
Range(Cells(5, 1), Cells(Rows.Count, 10)).EntireRow.Hidden = False
NR = Range("D" & Rows.Count).End(xlUp).Row
With Range("D5:D" & Rows.Count)
Set C = .Find(Cells(1, 1), LookIn:=xlValues)
If Not C Is Nothing Then
Pi = C.Address
Do
C.Interior.ColorIndex = 44
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Pi
End If
End With
For I = 5 To NR
If Cells(I, 4).Interior.ColorIndex <> 44 Then Cells(I, 4).EntireRow.Hidden = True
Next I
End Sub
LastD = Cells(65536, 4).End(xlUp).Row
Range("D5:D" & LastD).Interior.ColorIndex = xlNone '<<<
Range("D4:D" & LastD).AutoFilter field:=1, Criteria1:="=*" & Cells(1, 1) & "*"
Range("D5:D" & LastD).Interior.ColorIndex = 44
Torna a Applicazioni Office Windows
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Incolla prendendo riferimento da cella esterna Autore: scanacc |
Forum: Applicazioni Office Windows Risposte: 4 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 82 ospiti