Dante Amor

Según tu imagen En el txtvalor3 tienes vacío o nulo. Como bien comentan, tienes que validar el contenido del txtvalor3, puede ser esta forma: If txtvalor3.Value = "" Then t3 = 0 Else t3 = txtvalor3.Value End If ActiveCell.Value = CDbl(t3) Si el valor...

Te anexo la macro. Ejecuta la macro Abrir_Txts. Cambia "algo1.txt" y "algo2.txt" por los nombres de tus 2 archivos Sub Abrir_Txts() ' Por Dante Amor ' Carga archivos de texto ' Application.ScreenUpdating = False Set h = Sheets("Hoja8") h.Cells.Clear...

Te anexo la macro Sub Unicos_Duplicados() 'Por Dante Amor 'cuenta unicos y duplicados ' u = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To u valor = Cells(i, "A").Value If valor > 0 Then cuenta =...

Prueba con la siguiente macro. Cambia "C2:C6" por el rango que vas a validar. Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Permite ingresar un dato solamente en una celda del rango Set rango = Range("C2:C6") If Not...

Te anexo la macro. Considera lo siguiente: Los datos deben empezar en la fila 2. Si empiezan en otra fila, cambia los 2 por el número de fila. Los encabezados deben estar en la fila 1. Si están en otra fila, cambia el 1 por el número de fila en esta...

¿Y qué error te aparece? Puedes poner una imagen de tu tabla1. Y también pon una imagen para ver qué tienes en la celda B5

Puedes poner la siguiente fórmula en la celda C2 de la hoja2 =SI(Y(A2=Hoja1!A2;B2=Hoja1!B2);"ok";"diferente") Copia la fórmula hacia abajo hasta el final de tus datos. Revisa y dime si es lo que necesitas.

Podrías explicar con imágenes lo que tienes lo que esperas de resultado. Importante! Debes poner una imagen de tus datos origen y en otra imagen el resultado que esperas. Procura que en las imágenes se muestren las filas y las columnas de excel. Con...

No es posible poner formato de asterisco (*) en el InputBox. En estos casos se recomienda un textbox dentro del formulario. Y entonces en las propiedades del TextBox utiliza la que dice PasswordChar y ahí escribes un asterisco (*) Sal u dos

Te anexo la macro Sub Copiar_Hoja_Semana() 'Por Dante Amor prefijo = "wk" ' wmax = 0 For Each h In Sheets largo = Len(prefijo) If LCase(Left(h.Name, largo)) = LCase(prefijo) Then num = Val(Mid(h.Name, largo + 1)) If num > wmax Then wmax = num End If...