Dante Amor

Intenta con lo siguiente: Range("G" & FF).value = cdbl(txtprecio1) Es decir, cuando vayas a pasar el valor del textbox a la celda tienes que ponerlo dentro de la función Cdbl Prueba y me comentas. ':) S a l u d o s . D a n t e A m o r ':) Si es lo...

H o l a: Esta macro es para poner el número de documento: Private Sub UserForm_Activate() 'Por.Dante Amor Set h = Sheets("REMISION") Num_Remision = h.[AA3] End Sub Con esta macro llenas la hoja: Private Sub Boton_Imprimir_Remision_Click() 'Por.Dante...

H o l a: Te anexo la macro para seleccionar y cambiar las celdas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("F1, H1")) Is Nothing Then If Target = "" Then Exit Sub fec = Left(Target, 2) & "/" &...

H o l a: No entendí muy bien qué es lo que necesitas. Si tienes un rango de celdas con datos y quieres pasar cada uno de esos datos por la función, ¿entonces dónde pondrías los resultados? Tampoco entendí lo que pretendes con la primera macro,...

H o l a: Envíame tu archivo con tu formulario, me dices cómo trabaja tu formulario y en qué momento quieres pasar la fecha a la hoja. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Jessy Vazquez” y el título de esta...

H o l a: Te anexo la macro Sub BorrarColumnas() 'Por.Dante Amor Set r = Range("D4:SE4") For Each c In r.Columns If WorksheetFunction.IsEven(c.Column) Then u = Cells(Rows.Count, c.Column).End(xlUp).Row If u < 4 Then u = 4 Range(Cells(4, c.Column),...

H o l a: Te anexo la macro Sub Macro1() 'Por.Dante Amor Application.ScreenUpdating = False On Error Resume Next ActiveSheet.ShowAllData If [F1] = "" Then Exit Sub u = Range("A" & Rows.Count).End(xlUp).Row Range("A4:I" & u).AdvancedFilter _...

H o l a: Envíame tu archivo con el formulario para programar la búsqueda. Y algo importante, los registros filtrados los quieres ver en el listbox, pero después les vas a hacer algo, como modificar los datos o borrar el registro de la hoja, esto es...

H o l a: Te anexo la macro Sub Pintar() 'Por.Dante Amor On Error Resume Next Set celda = Application.InputBox("Selecciona la celda incial", _ Default:=Selection.Address, Type:=8) If celda Is Nothing Then Exit Sub ' If celda.Count > 1 Then MsgBox...

H o l a: Te anexo la macro, pon la siguiente macro en un módulo. Sub CopiarHojas() 'Por.Dante Amor Set h1 = Sheets("iteracion1") h1.Select n = 2 Do While True If ActiveSheet.Range("AY34") < 0.018 Then Exit Do h1.Copy After:=Sheets(Sheets.Count) Set...