UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Por favor antes de hacer su consulta lean "Recomendaciones para hacer preguntas." Den Click aquí

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

PoteoRoke

avatar
Saludos !!!

Como siempre recurro a vosotros , porque soy incapaz de combinar dos private sub en una misma hoja excel ... 

Os copio la sintasis:

Primera
Private Sub Worksheet_Change(ByVal Target As Range) 'para guardar el valor de la fecha de hoy en una celda --D16

Dim rango As Range
Set rango = Range("A10:Y178")    
If Intersect(Target, rango) Is Nothing Then Exit Sub
Application.EnableEvents = False   
Range("D16") = Date             
Application.EnableEvents = True 
End Sub

Segunda
Private Sub Worksheet_Change(ByVal Target As Range) 'para cambiar el nombre de las hojas del libro excel

If Intersect(Target, [K6]) Is Nothing Then Exit Sub 
nombres
End Sub

En su modulo, la sintasis es :
Sub nombres()
Dim tabla As Range

If [K6] = "" Then
Hoja1.Name = "Datos"
Hoja2.Name = "Idioma"
Else
Set tabla = Hoja2.[H6:H11]
Hoja1.Name = tabla.Find([K6], lookat:=xlWhole).Offset(, 1)
Hoja2.Name = tabla.Find([K6], lookat:=xlWhole).Offset(, 2)
End If
Set tabla = Nothing
End Sub

Como siempre espero y deseo haber sido lo mas explicido posible 

MIL GRACIAS anticipadas


Nota: Por separado, funcionan a la perfección !!!

jhon1904

avatar
hola

lea las normas  para realizar una consulta, siempre debes subir un archivo de ejemplo asi es mas sencillo de que alguien te resuelva la duda


saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

PoteoRoke

avatar
Saludos !!!

Efectivamente hay que poner/subir un archivo de ejemplo; NO lo hice ya que,  hacia poco tiempo que me ayudasteis en las macros por separado. Concretamente el 10/03/18 (http://www.universoexcelforo.com/t2571-cambiar-nombre-hoja-segun-el-valor-de-la-lista-despegable#117777) y el 03/03/18 (http://www.universoexcelforo.com/t2564-macro-fecha#11742) ...

De todas formas tienes razón y subo el archivo en cuestión, decir de nuevo que con vuestra ayuda las DOS macros funcionan a la perfección por separado ... y NO se como unirlas/combinarlas

Mil GRACIAs anticipadas
Archivos
Combinar _dos_private.xlsm
No tienes los permisos para descargar los archivos.
(21 KB)

PoteoRoke

avatar
Saludos ...

Creo que con esta "modificación" de las "macros", funciona, tal y como yo deseaba ...

Mil GRACIAS por vuestro tiempo
Archivos
Combinar _dos_private_sub_001.xlsm
No tienes los permisos para descargar los archivos.
(23 KB)

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.