Elsa Matilde

Olvidé un detalle y aprovecho que tenés otra abierta. Si no necesitas seleccionar la impresora, es decir que no necesitas el cuadro de diálogo que se abre al final, podes reemplazar esa línea por esta otra: 'abre cuadro de diálogo para seleccionar...

Cuando la condición es 'texto' vá entre comillas: =SI('Hoja1'!A1="X","X","")

En un rato te lo envío... no finalices aún. Sdos Elsa

Probando las opciones que indicas en el libro, tenés 3 problemas: 1- Si seleccionas el item 2 (Invrs.T.A) Estás considerando la fila 2 pero como los datos en la hoja empiezan en la fila 2, debes sumar 1 para posicionarte en esa fila: Entonces en el...

Un control de formulario puede ir asociado a una celda... entonces tu criterio debe ser esa celda, x ej H2: =CONTAR.SI(rango;H2) Comentame si esto responde a tu consulta, sino deja algunas aclaraciones como valores, rangos, etc.

Escribilo así: mensaje1 = MsgBox("Saludos cordiales: " & chr(10) & "1- MARCO A......" & CHR(10) & "2-IGNACIO......" & CHR(10) & "3- PAUL...") Completala y probala. Si te presenta algún error dejala escrita para que la revise, sino no olvides...

En el mismo bucle debes controlar de qué hojas se trata. Por ej: si solo necesitas las hojas llamadas Hoja 1 y Hoja2: For Each Ws In ActiveWorkbook.Worksheets If Ws.Name = "Hoja1" or Ws.Name = "Hoja2" then Ws.Select '...... todo lo demás End If Next...

Si necesitas 'renombrar' una pestaña con otro valor, la instrucción sería: ActiveSheet.Name = nvonombre La variable nvonombre tendrá a su vez el nombre de la hoja del otro libro, con esta línea: Nvonombre = Sheets("Hojax") o quizás tengas que nombrar...

Algo estás haciendo mal porque tus consultas no se pueden leer. Finalizá ésta consulta y dejá una nueva en el tablón solo con el texto de la consulta. Si necesitas adjuntar algún ejemplo o imagen debieras dejarlo en algún sitio de esos gratuitos...

Primero encontrá la primer fila libre y luego usá ese dato como fila: libre = Worksheets("hoja1").Range("A65536").End(xlup).Row + 1 'lo que se escribe en los textbox se envía a la celdas Worksheets("hoja1").Range("A" & libre) = TextBox1 <h6>y así con...