Este fórum está sendo desativado

[NataGomes]

Olá... estou criando uma macro em que a referencia a uma célula é relativa... na planilha, em uma célula, está o número da linha em que a macro deve atuar. Mas estou tendo problemas ao fazer essa referencia. A parte que está com problema é essa:

Sheets("BD_FunCad").Select
Range("B" & Range("F7").Value).Select

[gfranco]

Bom dia.
Sugiro postar um modelo de sua planilha (com dados fictícios mas mesma estrutura)
Poste um modelo em Excel (não uma imagem) de preferencia com uma demonstração manual do resultado pretendido.
Para anexar o arquivo, clique em +Resposta e localize a opção abaixo da janela de digitação de mensagens.

[NataGomes]

Opa... obrigado pela dica. Segue anexo o modelo sem as macros, que não são aceitas para enviar o arquivo. As macros são as seguintes:

Sub restaura_alterar()
Range("C5").Select
ActiveCell.FormulaR1C1 = "=pesquisa!RC"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=pesquisa!RC"
Range("C7").Select
ActiveCell.FormulaR1C1 = "=pesquisa!RC"
Range("C8").Select
ActiveCell.FormulaR1C1 = "=pesquisa!RC"
Range("C9").Select
End Sub

Sub gravar_alt()
Sheets("alterar").Select
Range("B16").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("bdados").Select
Range("B" & Range("A6").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("alterar").Select
Call restaura_alterar
Sheets("pesquisa").Select
End Sub

[NataGomes]

Acho que esqueci de anexar o arquivo... foi mal

[gfranco]

Opa... obrigado pela dica. Segue anexo o modelo sem as macros, que não são aceitas para enviar o arquivo.

Envio de arquivos *.XLSM,XLSX,XLSB são perfeitamente possíveis......

Sugiro enviar sua pasta de trabalho com uma descrição exata do seu objetivo....
Algo tipo:
"isso deve ser copiado daqui para esse outro lugar por causa disso....
Esse outro não será copiado por causa daquilo...."
Lembre-se:
podemos entender "um pouco de Excel" mas não sabemos nada sobre o objetivo da sua planilha.....

[NataGomes]

Resolvi o problema... usei o seguinte código

Sub gravar_alt()
'
' grava_alteracao_de_dados
'
Dim x As Integer
x = Range("A16").Value

Range("B16").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("bdados").Select
Range("B" & x).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("alterar").Select
Call restaura_alterar
Sheets("pesquisa").Select
End Sub