Ir para conteúdo
Fórum Script Brasil
  • 0

VBA excel


DRG

Pergunta

6 respostass a esta questão

Posts Recomendados

  • 0

Boa tarde DRG

Seja bem-vindo()a ao fórum!

Tem que ser com VBA?:

Dá pra fazer sem VBA, apenas usando a ferramenta Formatação Condicional do Excel.

Para facilitar poste a tua planilha num site gratuito como :

www.sendspace.com

Depois cole o link da planilha aqui no fórum.

[]s

Editado por Patropi
Link para o comentário
Compartilhar em outros sites

  • 0

Clique com o lado direito do Mouse no nome da Aba da planilha --> Exibir código --> copie e cole o código abaixo:

 

Private Sub Worksheet_Change(ByVal Target As Range)

	    If Range("a1") = "NTF" Then

	        Range("b1").Select

	        With Selection.Interior

	            .ColorIndex = 3

	        End With

	    Else

	        Range("b1").Select

	        With Selection.Interior

	            .ColorIndex = 0

	        End With

	    End If

	End Sub


 

Para testar digite NTF na célula A1 e veja o resultado na célula B1

Dê retorno.

[]s

 

Editado por Patropi
Link para o comentário
Compartilhar em outros sites

  • 0
19 horas atrás, Patropi disse:

Clique com o lado direito do Mouse no nome da Aba da planilha --> Exibir código --> copie e cole o código abaixo:

 


Private Sub Worksheet_Change(ByVal Target As Range)

	    If Range("a1") = "NTF" Then

	        Range("b1").Select

	        With Selection.Interior

	            .ColorIndex = 3

	        End With

	    Else

	        Range("b1").Select

	        With Selection.Interior

	            .ColorIndex = 0

	        End With

	    End If

	End Sub

 

Para testar digite NTF na célula A1 e veja o resultado na célula B1

Dê retorno.

[]s

 

MEU CARO E QUASE ISSO

QUERO POR EX> DE A1 ATE F1 ENTENDEU?

 

Link para o comentário
Compartilhar em outros sites

  • 0

Quando a resposta for em sequência, não use a ferramenta "Citar", use a janela de resposta que fica um pouco abaixo da minha resposta, evite poluir o fórum desnecessariamente.

Sobre a tua dúvida, é só fazer uma pequena alteração no código.

Onde consta Range("b1"), altere para ("a1:f1")

[]s

Editado por Patropi
Link para o comentário
Compartilhar em outros sites

  • 0

ola galera sou novo aqui,

preciso de ajuda com um cogido que estou desenvolvendo.

 

quero a partir de uma planilha preencher uma tabela, porem quando coloco para rodar os valores estão se sobrepondo.

Sub MarcarAplicavel()

Dim i As Integer
Dim j As Integer
Dim k As Integer

i = 4
j = 7
k = 2

                   For k = 2 To 500
                   If Cells(i, j).Value = "" And Cells(k, 1).Value = "x" Then
            
            For i = 4 To 17
            For j = 7 To 16
            
            Cells(i, j).Value = Cells(k, 4).Value
            Next j
            Next i
               
            End If
            Next k
           
End Sub
 

Sem título.png

Editado por RODENGINEER
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...