Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas noches;
tengo una duda, estoy haciendo una macro y me falla una cosa, estoy trabajando con 2 hojas y tengo que poner cada vez que quiero que haga algo en otra hoja que no sea la principal la letra de la hoja y lo que quiero hacer, se que ahi una forma para decir que todo lo haga en esa hoja, no se si me he explicado bien, en vez de estar poniendo lo que he señalado en rojo, algo inicial para no tener que poner la letra de la hoja.
muchas gracias
Dim A, B As Worksheet
Sub Duplicados_Precert()
Set A = ThisWorkbook.Sheets("Precertificado")
Set B = ThisWorkbook.Sheets("Stock")
A.Activate
Set r1 = Range("A1")
ultimafila = r1.End(xlDown).Row
Range("T1").Select
ActiveCell.FormulaR1C1 = "Fecha "
Range("T2:T" & ultimafila).FormulaR1C1 = _
"=YEAR(RC[-3])&IF(MONTH(RC[-3])<10,""0""&MONTH(RC[-3]),MONTH(RC[-3]))"
B.Activate
B.Columns("T:T").Select
Selection.Copy
B.Columns("Q:Q").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False