Varios Casos para macroexpertos

24/04/2007 - 21:58 por Jorge Forero | Informe spam
Buenas tardes, soy nuevo en el tema de las macros y solicito ayuda al foro
con los siguientes casos
Los publico en una sola exposición para no volverme aburridor con tanta
preguntadera

de antemano mil gracias por la atención

Caso 1: Búsqueda de valor
Tengo una macro que busca el valor de un textBox en un archivo, en una hoja
específica,
necesito que me busque el dato en todas las hojas, pero no he podido, solo
me funciona
para una específica a continuación el código

Dim x As Boolean
Dim Celda As Range
For Each Celda In Worksheets("CA-AUT-MASG").Range("a1:a1000").Cells
If txbConsultaAnexoXIIIFuncion.Value = Celda.Value Then
Celda.Activate
x = True
End If
Next Celda
If x = False Then
MsgBox ("La Función Digitada es Incorrecta")
End If

Caso 2: Envío de información de celdas combinadas
tengo una macro que me envía la información de una celda a otra hoja de
cálculo.
Lo que necesito es enviar la información de celdas combinadas así: Ejemplo:
Celda a3, a4, a5 combinadas en una, dato almacenado: Tema A
Celda b3, b4, b5 combinadas en una, dato almacenado: Caso 5
Celda c3 NO combinada Dato almacenado A5-1
Celda c4 NO combinada Dato almacenado A5-2
Celda c5 NO combinada Dato almacenado A5-3.

Así necesito enviar los datos a otra hoja de cálculo

Caso 3: Creación Hoja de Cáclulo:
en la Hoja1 tengo una plantilla que debo replicar en hojas de cálculo nuevas
y elnombre de la hoja será un prefijo acompañado del número de la planilla
que genero ejemplo:
Hoja1 Planilla Original con un textbox que almacenará el contador (000)
cuando orpima el comandbutton, debe crear una nueva hoja de cálculo con el
prefijo PLA-, es decir la nueva hoja se llamará PLA-001, el contador debe
correr y cuando oprima de nuevo el botón creará la hoja PLA-002
así sucesivamente.

Agradezco la colaboración que el foro me pueda brindar

Cordialmente.
JorgeF
 

Leer las respuestas

#1 Claudio Sepúlveda
25/04/2007 - 05:24 | Informe spam
Jorge:

Me permito ayudarte con la siguiente rutina para tu consulta al tercer caso.

Sub INSERTAHOJA()
HOJANUEVA = ActiveSheet.Name
CORR_HOJA = ActiveSheet.Index
ANTE = ""
If Val(Right(HOJANUEVA, 3)) < 100 Then ANTE = "0"
If Val(Right(HOJANUEVA, 3)) < 10 Then ANTE = "00"
NROHOJA = ActiveSheet.Index + 1
Sheets(ActiveSheet.Name).Copy Before:=Sheets(NROHOJA)
ActiveSheet.Name = Left(HOJANUEVA, Len(HOJANUEVA) - 3) & ANTE &
Val(Right(HOJANUEVA, 3)) + 1
End Sub

Espero te sirva

Atte

Claudio



"Jorge Forero" escribió en el mensaje
news:
Buenas tardes, soy nuevo en el tema de las macros y solicito ayuda al foro
con los siguientes casos
Los publico en una sola exposición para no volverme aburridor con tanta
preguntadera

de antemano mil gracias por la atención

Caso 1: Búsqueda de valor
Tengo una macro que busca el valor de un textBox en un archivo, en una
hoja
específica,
necesito que me busque el dato en todas las hojas, pero no he podido, solo
me funciona
para una específica a continuación el código

Dim x As Boolean
Dim Celda As Range
For Each Celda In Worksheets("CA-AUT-MASG").Range("a1:a1000").Cells
If txbConsultaAnexoXIIIFuncion.Value = Celda.Value Then
Celda.Activate
x = True
End If
Next Celda
If x = False Then
MsgBox ("La Función Digitada es Incorrecta")
End If

Caso 2: Envío de información de celdas combinadas
tengo una macro que me envía la información de una celda a otra hoja de
cálculo.
Lo que necesito es enviar la información de celdas combinadas así:
Ejemplo:
Celda a3, a4, a5 combinadas en una, dato almacenado: Tema A
Celda b3, b4, b5 combinadas en una, dato almacenado: Caso 5
Celda c3 NO combinada Dato almacenado A5-1
Celda c4 NO combinada Dato almacenado A5-2
Celda c5 NO combinada Dato almacenado A5-3.

Así necesito enviar los datos a otra hoja de cálculo

Caso 3: Creación Hoja de Cáclulo:
en la Hoja1 tengo una plantilla que debo replicar en hojas de cálculo
nuevas
y elnombre de la hoja será un prefijo acompañado del número de la planilla
que genero ejemplo:
Hoja1 Planilla Original con un textbox que almacenará el contador (000)
cuando orpima el comandbutton, debe crear una nueva hoja de cálculo con el
prefijo PLA-, es decir la nueva hoja se llamará PLA-001, el contador debe
correr y cuando oprima de nuevo el botón creará la hoja PLA-002
así sucesivamente.

Agradezco la colaboración que el foro me pueda brindar

Cordialmente.
JorgeF


Preguntas similares