Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Kayo Anthony

Duas formulas juntas worksheet.change

Mensagem Recomendada

21 horas atrás, btisonia disse:

Agora.....eu consigo concatenar essa função, ~~~> que função? dizendo que caso eu digite 50, ~~~> digitar 50 em qual célula? além data, ~~~> que data? deve aparecer "estuda fora" ~~~> deve aparecer em qual célula?

mas a função datafixa que criei muda automaticamente toda vez que abro a planilha, quero que fique a data de quando eu alterar a coluna ~~~> alterar qual coluna? e, para 50 ou 100.... 

considerar

f2="estuda fora" ~~~> ?

f3=50 ~~~> ?

g2="mudou-se" ~~~> ?

g3=100 ~~~> ?

obs. disponibilize o arquivo com o código atualizado, com apenas 5 a 10 linhas com dados e coloque o resultado desejado para cada caso com as necessárias explicações exatas.

 

 

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Prezados, estou com o mesmo problema, pois preciso juntar as duas Worksheets abaixo.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim hVal
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("b12:e42")) Is Nothing Then Exit Sub
    With Target
        hVal = Format(.Value, "0000")
        If IsNumeric(hVal) And Len(hVal) = 4 Then
            Application.EnableEvents = False
            .Value = Left(hVal, 2) & ":" & Right(hVal, 2)
            .NumberFormat = "[h]:mm"
        End If
    End With
    Application.EnableEvents = True
End Sub

e

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$Q$6" Then
Range("B12:E42").ClearContents
Range("P12:p:P42").ClearContents
End If

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim hVal
  If Target.Count > 1 Then Exit Sub
   If Not Intersect(Target, Range("B12:E42")) Is Nothing Then
    With Target
     hVal = Format(.Value, "0000")
     If IsNumeric(hVal) And Len(hVal) = 4 Then
      Application.EnableEvents = False
      .Value = Left(hVal, 2) & ":" & Right(hVal, 2)
      Application.EnableEvents = True
      .NumberFormat = "[h]:mm"
     End If
    End With
   ElseIf Target.Address = "$Q$6" Then
    Range("B12:E42,P12:P42").ClearContents
   End If
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
2 horas atrás, osvaldomp disse:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim hVal
  If Target.Count > 1 Then Exit Sub
   If Not Intersect(Target, Range("B12:E42")) Is Nothing Then
    With Target
     hVal = Format(.Value, "0000")
     If IsNumeric(hVal) And Len(hVal) = 4 Then
      Application.EnableEvents = False
      .Value = Left(hVal, 2) & ":" & Right(hVal, 2)
      Application.EnableEvents = True
      .NumberFormat = "[h]:mm"
     End If
    End With
   ElseIf Target.Address = "$Q$6" Then
    Range("B12:E42,P12:P42").ClearContents
   End If
End Sub

 

Muito obrigado! Problema resolvido.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...