poderia ficar mais ou menos assim mas tem que ter um certo ajuste na planilha
Sub test()
lf = Cells(Rows.Count, "F").End(xlUp).Row
For L = 1 To lf
If Cells(L, "f").Value2 = "Verdadeiro" Then
Range("A" & L, "D" & L + 7).Select ' as caixas tem que ser todas do mesmo tamanho
End If
Next
End If
End Sub
ou coloque o numero da macro na linha de baixo da formula
tipo a formula tem que chamar a macro1
em baixo da formula coloque o numero 1
mas os nomes das macros tem que ser iguais apenas mudar o numero final
Sub test()
Lf = Cells(Rows.Count, "F").End(xlUp).Row
For L = 1 To lf
If Cells(L, "f").Value2 = "Verdadeiro" Then
macroL = "macro" & Cells(L + 1, "F").Value2
Application.Run macroL
End If
Next
End Sub
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 24/08/2014 9:05 pm