JasallBcn

Buenas, prueba saludos Archivo consulta_023516_V2.xlsm

Buenas, explica lo del patrón , no lo entiendo, saludos Archivo consulta_023516.xlsm

Buenas, para pasar los datos a las cajas de texto Private Sub Botón_Click() ID = Mid(Botón.Name, 2, Len(Botón.Name)) With TpvListado .xId = Hoja1.Range(ID) .xDescripción = Hoja1.Range(ID).Offset(0, 1) .xReferencia = Hoja1.Range(ID).Offset(0, 2) .xPrecio = Hoja1.Range(ID).Offset(0, 6) .xCantidad = 1 End With End Sub lo otro , no lo entiendo saludos

Buenas, prueba saludos Ocultar columnas de un rango y dejar uno.xlsm

Buenas, prueba saludos PRUEBA_v1.xlsm

Buenas, puedes utilizar un condicional para comprobar las 2 opciones, algo así: If InStr(1, LCase(tmpFichero.Name), LCase(sFicheroBuscado)) > 0 And _ LCase(Mid(tmpFichero, InStr(1, tmpFichero, "."))) = LCase(Range("C8")) Then saludos

Buenas, te paso una forma. Para poder aprovechar los macros los modifiqué capturando el nombre del shape que hace la llamada a la rutina mediante "Application.Caller" , que previamente al copiar Shapes = botones le di como nombre la altura de la hoja donde está y así poder aplicar los cambios a los rangos de la tabla que está a su altura. Saludos. Materiales2024_v3.xlsm

Te paso archivo. Para que te funcione tu código tienes que llamar a la función desde el evento de la página que detecta un cambio Worksheet_Change seria : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$56" Then CopiarValor End If End Sub saludos cuotas.xlsm cuotas2.xlsm

Buenas, en la hoja ADMINISTRACION pon el codigo: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$56" Then Sheets("CUOTAS").Range("A3").Value = Sheets("ADMINISTRACION").Range("E56").Value End If End Sub saludos

Felices Fiestas !! Saludos

Felices Fiestas a todos / todas. Un abrazo a la comunidad