Luis_P

Leticia... cuando tengas preguntas para mi... te sugiero que las hagas directo en "preguntar a experto"... asi me llegan directo... estas las he visto solo por que reviso el muro, es decir por si acaso. respecto a tu pregunta... ¿guardar el...

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

Entonces if respuesta ="NO" then Text1.Enabled = False

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

pues ponlo aquí... Por lo general lo que te indica visual basic al decirte que "no se encontró el método o el miembro de datos".. es que estas invocando un objeto o un método sobre el mismo objeto que no ha sido creado como tal. Te sugiero realices...

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