Luis_P

Ok en un modulo pegas este macro: Sub resumen() '4c7569735f50 Application.ScreenUpdating = False Sheets(2).Range("A:C").Clear Sheets(1).Select ' selecciona la hoja1 Range("B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy...

En vb excel no existe el evento "enter", así que deberías utilizar un botón para realizar la operación sería así: Private Sub CommandButton1_Click() txtmontooriginal = Format((txtmontooriginal * txtporcentaje), "$ ##,##0.00") End Sub

Prueba así: '4c7569735f50 =si(a1>=0 =y(a1<=25);"bajo";si(a1>25 =y(a1<=74);"medio";si(a1>74 =y(a1<=100);"alto";0)))

Acá tienes: Sub CopiaColumnas() Dim mirango As Range Dim col As Range Dim NuevaHoja As Worksheet Dim i As Integer Dim t As Long Set mirango = Selection Worksheets("Hoja2").Select i = 0 t = Application.WorksheetFunction.CountA(Sheets(2).Range("a:a"))...

si la estructura A1 No. de fact. B1 niquelado C1 cromo D1 brillado E1 galv. F1 total No cambia Te sugiero que en f2 pongas: =(B2*0,2)+(C2*0,13) +(D2*0,1)+(E2*0,16)

Workbooks.Open ThisWorkbook.Path & "\Sistema Estadístico ver " & archivo En donde archivo lo declaras como string, el cual recibe el nombre del libro que deseas abrir.

Prueba esto Private Sub aleatorio() Dim i As Integer '4c7569735f50 Randomize For i = 1 To 10 Range("a" & i) = i Range("b" & i) = Int(Rnd * (-100 - 100) + 100) Next End Sub Genera en columna a y b en la primera 10 secuenciales incrementados en 1 y en...

Abre el editor de visual basic (Teclas Alt + F11) Dale doble click al objeto "ThisWorkbook" Allí pones esto: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '4c7569735f50 If UCase(Sheets(2).Range("A1")) = "INCORRECTO" Then...

Prueba este otro enfoque: Sub misuma() Dim t As Double Dim r As Range '4c7569735f50 On Local Error GoTo err: t = 0 For Each r In Range("L:L") If UCase(r) = "SIN DATO" Then Exit For t = t + (r + r.Offset(0, -9)) DoEvents Next [c80] = t Set r = Nothing...

Prueba esta función: Public Function fmes(ByRef fecha As String) Dim mt() As String Dim d As String * 4 Dim m As String * 4 Dim y As String * 4 Dim hr As String * 9 '4c7569735f50 hr = Mid(fecha, (Len(fecha) - 8), 9) fecha = Replace(fecha, hr, "") mt...