alterar codigo VBA

deejaywesley · 19 de fevereiro de 2013

Boa Noite a Todos!

em uma planilha, tem um VBA e numa parte dele com a seguinte limha

Sheets("A").[b1:Q300] = "='\\Reservaam\D\[01-01.xlsm]CADASTRO'!B1"

ela é pra mostra os dados que esta no indervalo de uma planlha da rede "01-01.xlsm"

na época procurei um codigo q buscase os dados sem ter q ficar a formula na celula, mas nao achei...

ai o companheiro zinhovba colocou o seguinte codigo em um topico que estamos ajudando um membro!

Sub FicarMaisLeve()
Application.ScreenUpdating = False

Worksheets("Translations - excel").Activate

With Range("B2")

.Formula = "=IFERROR(VLOOKUP(A2,Plan2!A1:B60000,2,0),VLOOKUP(A2,Plan1!A1:B60000,2,0))"

With .Resize(Range("A" & Rows.Count).End(xlUp).Row - 1)

.FillDown

.Copy

.PasteSpecial xlPasteValues

Application.CutCopyMode = False

End With

End With

Application.ScreenUpdating = True

End Sub

esse codigo roda um procv em um determinado intervalo...

ai me veio a ideia de no lugar da formula do procv colocar a minha linha

='\\Reservaam\D\[01-01.xlsm]CADASTRO'!B1

so que nao sei como alterar o codigo pra funcionar com essa linha

e no intervalo de B1:Q300:muro:

Alguem sabe se tem como fazer isso???????

zinhovba · 20 de fevereiro de 2013

Bom dia!!

Deixa eu ver se entendi.

imagine que eu eu tenho um arquivo com o nome (01-01.xlsm).

De outro arquivo (Excel.xls), você quer deixar o intervalo (Sheets("A").[b1:Q300] ) igual a célula, do arquivo (01-01.xlsm)?

deejaywesley · 20 de fevereiro de 2013

Boa Tarde!

isso.... a planilha (01-01.xlsm) ta em um computador da rede, ai na que eu estou mexendo aqui, eu preciso dos valores do intervalo B1:Q300 da aba "A"

e o codigo que eu uso coloca essa formula

='\\Reservaam\D\[01-01.xlsm]A'!B1

na minha planilha no intervalo puxando oos dados!

ou seja

B1 na minha = B1 da planilha q ta na rede

B2 na minha = B2 da planilha q ta na rede

B3 na minha = B3 da planilha q ta na rede

C1 na minha = C1 da planilha q ta na rede

C2 na minha = C2 da planilha q ta na rede

C3 na minha = C3 da planilha q ta na rede

isso em todo o intervalo....

ai, na epoca q tava fazendo a planilha eu procurei um codigo q fizesse isso

so que sem colocar a formula, ja colocase o valor, mas nao achei!

ai no seu codigo como a formula do procv fica como se coloca na celula, imagino que enha como modificalo para rodar a minha ....

zinhovba · 22 de fevereiro de 2013

Bom dia!!

Tente assim

Bom dia!!

Tente assim

Sub ZinhoVBA()

For Each c In ActiveSheet.Range("B1:Q300")
    c.Formula = "=[SeuaArquivoAqui.xlsm]SuaGuia_A!" & c.Address
Next

End Sub

deejaywesley · 22 de fevereiro de 2013

Boa Tarde Zinho!

o codigo funciono mas nao era isso que eu queria nao...

intedi o que seu codigo faz,,,, e ele nao vai fazer o que que eu quero nao...

eu queria q ele buscase o dados da outra planilha mas sem colocar a formula na celula

Vou dar um exemplo com 2 codigos bem simples...

imagine que na coluna A e B você digita valores e em C você quer a soma de cada linha!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range

Set Colunas = Range("B1:B10")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

LINHA = Target.Row

On Error Resume Next

Range("C" & LINHA).Value = "=A" & LINHA & " + B" & LINHA & ""

End If

End Sub

Com este quando você digitar o valor e A e depois em B ele vai mostrar em C

a soma, so que se você selecionar a celula vai ter uma formula =A5 + B5, neste ex a linha 5

ja neste!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range

Set Colunas = Range("B1:B10")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

LINHA = Target.Row

On Error Resume Next

Range("C" & LINHA).Value = Range("A" & LINHA) + Range("B" & LINHA)

End If

End Sub

Ele vai fazer a mesma coisa, so que sem colocar a formula na celula, so o resultado!

porque ele mesmo ja é a forumla...

ai, eu preciso de um codigo que faça o que esta linha faz...

='\\Reservaam\D\[01-01.xlsm]A'!B1

so que sem colocar a formula, so o resultado!

zinhovba · 23 de fevereiro de 2013

Bom dia!!

Eu espero que dê certo....

Sub ZinhoVBA_Valores()
Application.ScreenUpdating = False

For Each c In ActiveSheet.Range("B1:Q300")
    c.Value = Workbooks.Open("Z:\SeuDiretorio\SeuArquivo.xlsm").Sheets("SuaPlanilha_Aqui").Range(c.Address).Value
Next
Application.ScreenUpdating = True
End Sub

Att