Instrucción adicional a macro ya creada
Para Dante Amor
Me ayudaste con la siguiente macro:
Sub modificar() 'Por.Dante Amor Set h2 = Sheets("BASE") Set h3 = Sheets("MODIFICAR") ' If h3.[D10] = "" Then MsgBox "Número de Identificación VACIO." & vbCrLf & "" & vbCrLf & "Por favor escriba el número de Identificación en el espacio correspondiente.", vbExclamation [D10].Select Exit Sub End If ' Set b = h2.Columns("C").Find(h3.[D10], lookat:=xlWhole) If Not b Is Nothing Then h2.Cells(b.Row, "C") = h3.[D12] h2.Cells(b.Row, "D") = h3.[D13] h2.Cells(b.Row, "E") = h3.[D14] h2.Cells(b.Row, "G") = h3.[D15] h2.Cells(b.Row, "H") = h3.[D16] h2.Cells(b.Row, "I") = h3.[D17] h2.Cells(b.Row, "J") = h3.[D18] h2.Cells(b.Row, "M") = h3.[D19] h2.Cells(b.Row, "Y") = h3.[F8] h2.Cells(b.Row, "T") = h3.[G17] ------- AQUI QUIERO LA INSTRUCCION QUE NECESITO ---------- Else MsgBox "El número de Identificación no existe en la BASE DE DATOS." & vbCrLf & "" & vbCrLf & "Por favor verifique con el PACIENTE el número de Identificación e Intentelo de nuevo.", vbExclamation [D10].Select End If MsgBox "Se han ACTUALIZADO los datos del paciente EXITOSAMENTE." & vbCrLf & "" & vbCrLf & "Gracias por Mantener actualizada nuestra BASE DE DATOS." & vbCrLf & "" & vbCrLf & "Hasta Pronto.", vbInformation Range("D12:D19").Select Range("D19"). Activate Selection. ClearContents Range("D10").Select Selection. ClearContents ActiveWorkbook. Save End Sub
Es que en la columna "T" de esa fila, tengo unas palabras separadas por el símbolo de "@" ejemplo:
El hecho es que cuando hay dos "@@" seguidas es por que debe haber una columna vacía.
Ejemplo:
Esto es lo que deseo después de colocar la frase divididas con arrobas en la columna "T" y que empiece a dividir las palabras a partir de la siguiente columna es decir la columna "U"
1 Respuesta
Respuesta de Dante Amor
1