Página 1 de 1
Usar celula de referencia de valor.
Enviado: 07 Mar 2016 às 09:47
por fjjohann
Olá,, a macro a seguir é utilizada para ocultar as linhas 10 até 13 caso o valor da coluna c9 seja 1.
Como faço pra em vez de colocar "10:13", vincular o valor de uma celula.
por exemplo, na célula g211 consta o valor 10 e na j211 consta o valor 11.
como devo escrever: "10:13" -> "g211:j211" ??
Sub Ocultainicial()
If Range("c9").Value = "1" Then
Rows("10:13").Hidden = True
Else
Rows("10:13").Hidden = False
End If
End Sub
Re: Usar celula de referencia de valor.
Enviado: 07 Mar 2016 às 11:12
por alexandrevba
Bom dia!!
Eu não sei se entendi...
Código: Selecionar todosSub Ocultainicial()
Dim interestingRows As Range
startRow = Range("G211").Value 'Dessa linha
endRow = Range("J211").Value 'Até essa linha
Set interestingRows = Plan1.Range(startRow & ":" & endRow)
If Range("c9").Value = "1" Then
interestingRows.EntireRow.Hidden = True
Else
Rows("10:13").Hidden = False
End If
End Sub
Att
Re: Usar celula de referencia de valor.
Enviado: 07 Mar 2016 às 11:30
por fjjohann
Oi Alexandre, acho que é isso, mas tenho que referenciar onde está em vermelho tbm, como faço?
Sub Ocultainicial()
Dim interestingRows As Range
startRow = Range("G211").Value 'Dessa linha
endRow = Range("J211").Value 'Até essa linha
Set interestingRows = Plan1.Range(startRow & ":" & endRow)
If Range("c9").Value = "1" Then
interestingRows.EntireRow.Hidden = True
Else
Rows("10:13").Hidden = False
End If
End Sub
Re: Usar celula de referencia de valor.
Enviado: 07 Mar 2016 às 11:53
por alexandrevba
Boa tarde!!
Tente assim...
Código: Selecionar todosSub Ocultainicial()
Dim interestingRows As Range
Dim interestingRowsB As Range
startRow = Range("G211").Value 'Dessa linha
endRow = Range("J211").Value 'Até essa linha
startRowB = Range("SuaCélula").Value 'Dessa linha
endRowB = Range("SuaCélula").Value 'Até essa linha
Set interestingRows = Plan1.Range(startRow & ":" & endRow)
Set interestingRowsB = Plan1.Range(startRowB & ":" & endRowB)
If Range("c9").Value = "1" Then
interestingRows.EntireRow.Hidden = True
Else
interestingRowsB.EntireRow.Hidden = True
End If
End Sub
Obs: Não testado!!
Att
Usar celula de referencia de valor.
Enviado: 07 Mar 2016 às 13:16
por fjjohann
Alexandre,
infelizmente não funcionou, quando executo a macro, tanto faz o valor da célula "c9", seja 0 ou seja 1, não oculta as linhas nem expande.
Re: Usar celula de referencia de valor.
Enviado: 07 Mar 2016 às 15:35
por alexandrevba
Boa tarde!!
Vamos considerar que eu entendi sua dúvida...
O código faz o seguinte, em G211 tem o valo 7 e em J211 o valor 10, o código vai considerar que vc pretende ocultar as linhas 7 até 10 caso c9 tenh o valor 1.
para tal o código funciona, se não for isso, por gentileza faça me entender.
Att