Jump to content
Fórum Script Brasil
  • 0

VBA excel


DRG
 Share

Question

Gostaria de uma vba para colocar em minha planilha que por ex:

Quando eu digitasse em determinada célula a palavra (NTF) a linha ate determinada célula ficasse colorida e quando eu colocasse outra coisa ela voltasse ao normal.

 

Grato

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 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

Edited by Patropi
Link to comment
Share on other 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

 

Edited by Patropi
Link to comment
Share on other 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 to comment
Share on other 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

Edited by Patropi
Link to comment
Share on other 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

Edited by RODENGINEER
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...