calvuch

Si estas utilizando Excel V2007 entonces en hoja2 celda A1 pon esto: =sumar.si.conjunto(hoja1!d1:d6;hoja1!a1:a6;"0001";hoja1!b1:b6;"0000007";hoja1!c1:c6;"005") ´Tome tus datos como ejemplo por lo tanto el rango que considera la funciona es A1:A6...

Este ejemplo consta de 3 text Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 13 Then Exit Sub If UCase(Text1) <> "CUERDA" Then MsgBox "INCORRECTO! SEGUI INTENTANTO", vbCritical, "Incorrecto" Text1.SetFocus Else MsgBox "MUY BIEN, TE...

Te dejo un ejemplo que puedes adaptar Private Sub Command1_Click() Dim T As Control For Each T In Me.Controls If TypeOf T Is TextBox Then If T.Text = Empty Then Exit Sub End If DoEvents Next MsgBox "Todos llenos" End Sub El bucle recorre todos los...

Utiliza esta macro Sub Nuevos() ' Sheets("Hoja2").Select Range("B1").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],Hoja1!R1C1:R9C1,1,FALSE),""nuevo"")" Range("B1").Select Selection.AutoFill Destination:=Range("B1:B17")...

En el evento Worsheet Change de la hoja utiliza este macro: Private Sub Worksheet_Change(ByVal Target As Range) Dim anterior As Variant Dim c As Long If Target.Column <> 1 Then Exit Sub If Target.Row = 1 Then Cells(Target.Row, 2) = 1 On Error Resume...

Hacer todo eso mientras digitas !, ya. Para ello puede utilizar un control denominado MaskEdbox ( esta en los controles adicionales del form), ahora si utilizas un text normal, para el formato que me indicaste seria TextBox1 = Format(TextBox1,...

Muy simple, cuando pongas el combo en el form debes ir a propiedades de ese control y fijarte que la opción AutoWordSelect sea TRUE Y en la opción MatchEntry juega con las diferentes posibilidades Firsletter o complete

Utiliza esto =buscarv(a1;'c:\tucarpeta\[libro2.xls]hoja1'!$a$1:$c$5;1;falso) Ok veamos abre ambos libros, esta función adáptala en tu libro 1 ( en donde quioeres tener el resultado), esto buscara los datos de la primera columna de la hoja1 del libro2...

Ok Aca va otra vez todo: Option Explicit Private Const MAX_PATH = 64 Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long...

Te dejo un ejemplo que puedes adaptar =SI(A1="A";SUMA(B1:B7);0) Esto es si en celda A1 existe la letra A entonces suma todo desde B1 hasta B7, de o contrario pon 0 la función la pones en la celda en que necesitas mostrar el resultado demás esta decir...