Canon Sata

A los integrantes de este foro, pude solucionar el problema de como Combinar datos de Tabla de Excel a Word, para lo cual comparto la rutina. Anterior: Worksheets("TELECREDITO").Range("A1:D7").Select Actual: Worksheets("telecredito"). Range("a1")....

James Bond respondió: Ya intentaste un contar. Si. Conjunt, en el ejemplo que ves hace un conteo comparando las columnas n, o, que y si es mayor a 0 coloca un 1 en la columna t

Dante Amor respondió: Esta puede ser una opción, antes del comentario, agregas una comilla simple: Sub InsertaComentarioCta() coment = InputBox("Escriba el comentario", "Comentario", Cells(ActiveCell.Row, "AF")) If Not coment = "" Then Cells(ActiveCell.Row, "AF") = "'" &...

Tor Cheer respondió: Agregando un botón actualizar al lado del campo con el siguiente código trae el DNI, espero te sirva. Saludos j = 1 Filas = Range("a1").CurrentRegion.Rows.Count For i = 2 To Filas If UCase(Cells(i, j).Offset(0, 1).Value) Like "*" &...

Dante Amor respondió: Prueba con lo siguiente, cambia lo esto Private Sub UserForm_Initialize() For i = 1 To 9 Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value Next i End Sub Por esto: Private Sub UserForm_Initialize() For i = 1 To 9...

Isaac Reyes respondió: ¿Cuál es el criterio con el que identificas si una hoja es activa o inactiva? Si deseas eliminar una hoja, debes utilizar Sheets("Nombre_hoja").Delete Si no quieres que te muestre un mensaje de alerta por la eliminación de la hoja...

Isaac Reyes respondió: Si estoy entendiendo bien, estás tratando de llamar al SUB PDTPLAMEONP desde el botón del formulario, si estoy en lo correcto, intenta cambiando la definición del procedimiento a PUBLIC SUB PDTPLAMEONP, en lugar de PRIVATE.

Abraham Valencia respondió: [Hola Pues la macro que has enviado usa ADO y no vincula los datos, entonces ¿cuál es el problema? Abraham Valencia