calvuch

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...

Veamos a la macro de vista previa que ya tienes debes llamarla con ALT + F8 antes de ejecutarla pincha el botón opciones allí puedes asignar la tecla que necesites como método abreviado respecto a mostrar una hoja en especial en la misma macro debes...

Aquí tienes: Sub pdf() ' x Calvuch If [A1] = Empty Then Exit Sub ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & [A1] _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False...

Prueba: =SI(C6="HPL-210";'[Control costos 2009.xlsx]Coste medio anual'!$D$5;SI(C6="TG87";'[Control costos 2009.xlsx]Coste medio anual'!$D$11))