Juan Carlos González Chavarría

ActiveCell.Value = TextBox1

=Derecha(A1,2)

Range("A2").Select ' Me posiciono en A3 Do While ActiveCell <> "" If ActiveCell.Value = "Si" Then ActiveCell.EntireRow.Select Rows.Interior.ColorIndex = 3 End If Loop

If Range("C3").Value <> "Por Imprimir." Then MsgBox "Se debe verificar el Status de la celda", VBInformation, "Atención!"

A como lo pones, pueden existir diversas formas de hacerlo. Para ayudarte un poco: If Range("A1").Value = 100 Then Range("B1:H1").Interior.ColorIndex = 3

No es por las estrellas. Me imagino que estarás haciendo una factura o cotización. Podrías utilizar una fórmula como: Suponiendo que la cantidad está en B3 y el precio en C3. =Si(Y(B3>=5,B3<=8), C3 * 3%,0) Esta fórmula se puede hacer más compleja...

Primero que nada los ComboBox no son de múltiples selecciones, son los ListBox. Te puedo poner un ejemplo pero si no tienes experiencia en programación VBA, tendremos un pequeño problema.

No recuerdo la consulta, pero si es con TextBox podría ser: Range("B2").Value = TextBox1.Text

Pones el mismo valor que en A1, solo que a A1 le das formato de fecha y a B1 formato de hora (hh:mm:ss).

Esto es un ejemplo que me encontré para que lo adaptes. Sub Leer_ArchivoAscii() Dim strNombreArchivo, strRuta, strArchivoTexto As String Dim f, i As Integer Dim strTexto As String 'nombre y ruta del archivo de texto strNombreArchivo =...