Bom dia.
Veja se assim funciona.
.Add Type:=xlExpression, Formula1:="=$J " & Ini_Lin & " >0"
Até
Foxtri
Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.
Voltar para a pesquisa avançada
Bom dia.
Veja se assim funciona.
.Add Type:=xlExpression, Formula1:="=$J " & Ini_Lin & " >0"
Até
Foxtri
Bom dia. Segue uma opção. Até Foxtri Sub Excluir() Dim Ulin As Long, XRng As Range, Cel As Range, XArea As Range With Sheets("BOVESPA (OPERAÇÕES)") Ulin = .Cells(Rows.Count, "B").End(xlUp).Row Set XRng = .Range(.Cells(ActiveSheet.ListObjects(1).ListColumns("Registro").D...
Boa tarde.
Conforme solicitado.
Até
Foxtri
Bom dia.
Veja se é isso.
Até
Foxtri
Boa tarde.
Veja se era assim que vc deseja.
Até
Foxtri
Boa tarde.
Deixo uma sugestão.
Em C5 copie a seguinte fórmula.
=SEERRO(SE(LOCALIZAR(C$3;$H5)>0;ESCOLHER(CORRESP(ESQUERDA($H5;1);{"A";"J"};0);"AD";"J");0);0)
Arraste para baixo e até a coluna G , conforme numero de alunos.
Até
Foxtri
Bom dia.
Para mim a sua planilha apresenta erro.
Seria possível verificar e reenviar ??
Até
Foxtri
Bom dia. veja se serve. Private Sub Txt_NºProcesso_Cob_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not IsNumeric(Chr(KeyAscii.Value)) Then 'If Not IsNumeric(Chr(KeyAscii.Value)) Or Len(Txt_NºProcesso_Cob.Text) >= 10 Then PARA LIMITAR EM MAIS DOIS NUMEROS APÓS O - KeyAscii.Value = 0 Else If ...
Bom dia.
Veja se era isso.
Até
Foxtri
Boa Tarde.
Segue uma opção.
Até
Foxtri
Bom dia.
Segue uma opção.
Até
Foxtri
Boa tarde.
Veja se era assim ???
=LIN() =CÉL("lin")
=LIN()-1=CÉL("lin")
=LIN()-2=CÉL("lin")
Três regras de formatação com cores diferentes.
Até
Foxtri
Boa tarde.
veja se pode ser desta maneira.
Até
Foxtri
Boa tarde.
Segue uma opção.
Até
Foxtri
Bom dia.
Segue uma opção.
Até
Foxtri
Boa tarde.
Veja a opção com VBA.
Até
Foxtri
Boa noite.
Até o momento só me apareceu uma solução meio primitiva.
Mas veja se pode ser assim.
Até
Foxtri
Bom dia
Veja se era isso:
Private Sub TextBox1_Change()
If TextBox1.Value <> "" Then
If IsNumeric(TextBox1.Value) Then
MsgBox "Somente Letras"
TextBox1.Value = ""
Cancel = True
End If
End If
End Sub
Até
Foxtri
Bom dia.
Para facilitar uma possível ajuda, seria interessante uma amostra da sua necessidade em uma planilha.
Até
Foxtri
Boa tarde.
Veja se era isso.
Até
Foxtri
Bom Dia Senhores. Tenho uma macro que preciso dei[…]
Free relationships without drama and obligations. […]
Estamos migrando para uma comunidade no Discord