Tor Cheer

Esta macro copia de una hoja a otra de una sola columna, agregue las demás columnas que necesite copiar y haga sus pruebas. Saludos Sub Copiar() Dim datobuscar As String 'declaracion de variable donde llevamos el dato a buscar ultimaFila =...

Si puede subir una imagen de su información o compartir un archivo de ejemplo para ayudarle, con mucho gusto.

La siguiente fórmula extrae los datos que necesita, hay que tomar en cuenta que esta fórmula aplica cuando tiene 2 nombre y 2 apellidos, no se si sea el caso de su información =SI(C2="FT",EXTRAE(B2,ENCONTRAR("- ",B2)+2,...

Puede compartir la macro y una imagen de su archivo para entender la situación y poder ayudarle

En el siguiente enlace puede descargar un archivo ejemplo en donde esta programado unicamente la celda K20 y con los textos " r, r1" y se muestra el cuadro de comentario. Si es lo que necesita, avíseme para tratar de programa en el rango de celdas...

Con esta macro puede adaptar a sus necesidades Saludos Sub Copiar() Dim datobuscar As String ultimaFila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row 'ultima fila If ultimaFila < 1 Then Exit Sub End If Worksheets("Hoja1").Select...

Si se puede. Yo tengo información parecida a la que requiere. Lo que yo hago es lo siguiente: 1.- Tengo mi consulta a una base de datos postgres por ej. Select id, nombre, fechamov, factura, importe from tblventas. Esta consulta lo tengo en una hoja...

No se si entendí bien, en la pruebas que hice esta fórmula parece funcionar =SI(AH5<>"",SI(AH5<>"","Tramitada","Pendiente"),"Pendiente") Cualquier cosa comenta.

Luis Alberto en este link: https://drive.google.com/open?id=1dCOI2dVgHDKi8xCoD16iiMiw2PDXCZ32 Podrá descargar un programa de votación estudiantil que hice igual para alguien del foro, espero te sirva y si requieres alguna adecuación con gusto se...

Puede compartir su archivo para adptarlo a sus necesidades.