Este fórum está sendo desativado

[MarceloAdriano]

Olá
Tem um código, abaixo, que sera utilizada em diversas plans. Ressalto que estas planilhas são identicas, porém o código especifica "planila1" e assim por diante... e dessa forma tenho que multiplicar o mesmo código. Como reformular esse parâmetro para que possa utilizar o mesmo código em em diversas planilhas? Evitando assim as várias cópias do mesmo código para atederem as diversas plans?
Espero ter feito entender...
Grato,
Marcelo Adriano

IMAGEM 1

IMAGEM 2

Parte do código:
Option Private Module

Option Explicit

Sub CélulasParaMatriz_PrimeiroBimestre()
Dim w As Worksheet, t As Long, i As Long
On Error Resume Next
Set w = Planilha4 ===> TORNAR ESSE CÓDIGO DE FORMA GLOBAL QUE POSSA USÁ-LA EM OUTRAS PLANS. E NÃO MULTIPLICAR O MESMO CÓDIGO.


t = w.Cells(w.Cells.Rows.Count, 2).End(xlUp).Row

[alexandrevba]

Bom dia!!

Eu não compreendi muito bem, mas se tem usar uma rotina que vai mudar apenas a linha

Código: Selecionar todos

Set w = Planilha4

, sendo que terá usar em várias guias onde a mesma estará ativa, então tente:

Código: Selecionar todos

Set w =ActiveSheet

Ou então a ideia de Array:

Código: Selecionar todos

Thisworkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4"))

Se não for isso, tente explicar melhor, pois ainda não entendi.

Att

[MarceloAdriano]

Olá Alexandre
Vcoê entedeu a minha dúvida perfeitamente, era isso que precisava

Grato
Marcelo Adriano