asaroma

Sub macro..() ... ... ThisWorkBook. Save ' Con esta Instruccion Guardas todo. End Sub

Lo que podrías hacer es validar para que tu caja de texto siempre salga en mayúsculas, de la siguiente manera: Private Sub TextBox1_Change() TextBox1 = UCase(TextBox1.Text) End Sub Ojala te sirva bytez :)

Mmm no se en que version trabajes pero en Excel 2003 no se puede realizar más de 3 condiciones, ahí tendrías que usar macros, coloca o busca formato condicional con más de 3 condiciones en tu navegador ahí te llevara a la respuesta. Bye. PDATTA: un...

Supongamos que tus hojas están ocultas a excepción de las que tienen los hipervínculos: La opción que me parece podrías usar es hacer un Formulario para que cuando des clic en El botón, que te lleve a la Hoja2 por ejemplo, te abra el formulario así...

Lo que podrías hacer es limpiar las cajas de texto antes de buscar el siguiente cliente, como : TextBox1.Text="" TextBox2.Text="" TextBox3.Text="" TextBox4.Text="" TextBox5.Text="" Para que no quede almacenado la información de tu ultimo cliente.

Podrías darle la siguiente instrucción: VBA. StrConv(textbox1.text, vbUpperCase) Si kisieras asignar a toda una columna, en vez de textbox1.text colocas: Columns("A:A") Es decir si es la columna A. Bytez :)

Supongamos que tus datos comienzan de la celda A2 las fechas y de la celda B2 los nombres: Si quieres contar solo los que son del 3/12/2007 y que sean cristian entonces usa la siguiente fórmula: =SUMAPRODUCTO((A2:A17="3/12/2007")*(B2:B17="cristian"))...

Si te refieres al nombre de la computadora entonces seria así: Sub host() Dim HostName As String HostName = Environ$("computername") MsgBox sHostName End Sub bytez :)

Seria algo así: Sub copia2hojas() Dim fila As Integer With Sheets("Hoja2") fila = 1 Do While True If IsEmpty(.Cells(fila, 1)) Then Exit Do fila = fila + 1 Loop End With Worksheets("Hoja2"). Range("A1").Value = Sheets("Hoja1"). Cells(fila - 1, 1)...

[email protected] escríbeme y te envío el archivo bytez :)