Luis_P

Seria: analisis_presupuesto. costomo = hoja3. range("v2").value * val(trim(textbox1) )

Para varones. contar.si.conjunto(a2:a11;5;b2:b11;"x") hembras: contar.si.conjunto(a2:a11;5;c2:c11;"x") Los dats están dispuesto así: Edad desde A2 hacia abajo Varones en col B marcados con X Hembras en col C ídem

Option Explicit Dim f As Integer Private Sub CommandButton1_Click() Dim r As Range Dim t As Integer '4c7569735f50 t = Application.WorksheetFunction.CountA(Range("A5:A65536")) + 4 If f = 0 Then f = 5 For Each r In Range("A" & f & ":" & "A" & t)...

Yo pasaría el valor del inputbox a una variable variable = .Find(InputBox("Ingresar N° Telefónico", "CONSULTA N° TELEFÓNICO")) if len(variable)=0 then exit sub Set midato=variable luego en el else para el fallo Solo asignas variable al control que deseas.

Agrega un formulario a tu hoja, el formulario debe tener 2 texbox y un botón ( no les cambies el nombre a los controles, solo agregalos) Luego pega este código en el formulario: Option Explicit Private Sub CommandButton1_Click() Dim fila As Long...

Utiliza esta función Public Function verifica_duplicados(id As Variant) ' verifica si existe o no un registro en una determinada columna ' 0 si existe devuelve true si no devuelve false Dim existe As Boolean '4c7569735f50 If...

¿Y el código?

y ActiveSheet.Range(Casilla_Inicial_100).select

Seguro, pero primero debes realizar la relación de los datos,,, convertir tus datos en una base de datos relacional Así : Pedro articulo1 Juan articulo 2 Pedro articulo 5 Jose articulo 21 Juan articulo 12 Pedro articulo 11 Etc... etc.. Así, cada...

Lo primero es saber si en la carpeta en donde alojas los ibros existe solo un archivo con el carácter # o si hay más... Si hay solo uno no es problema, pero si hay muchos, tener el carácter # no te sirve de nada.