Dante Amor

H o la : Si lo quieres hacer para todas las filas de la columna F que contienen datos: Sub Limpia_A() 'Por.Dante Amor For i = 3 To Range("F" & Rows.Count).End(xlUp).Row If Cells(i, "F") = "masa" Then Range(Cells(i, "J"), Cells(i, "V")).ClearContents...

¿Quieres copiar todos los registros de "Malos" a "CMalos"? ¿Y después borrar todos los registros de "Malos"? Lo que no entiendo es "renglones de la misma longitud" Si solamente es copiar, pegar y borrar, prueba con lo siguiente: Sub...

H o l a: Debe ser así: =indirecto("'c:\users\usuario\desktop\archivos jairo\correr ventas\ventas 65 y dorada 2017\calculos de ventas mensuales\"&A38&"efectivo_credito'!c39") Pero para que funcione, deberás tener el libro abierto, si cierras el libro,...

H o l a: Envíame tu archivo con el formulario para adaptar el código Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “roberto gatica” y el título de esta pregunta.

H o l a: Para realizar la macro, puedes poner ejemplos reales, dónde tienes los datos, y qué esperas como resultado y en dónde quieres los resultados. Si pudieras poner una imagen, procura que se vean las filas y las columnas de excel.

Quedaría así. Ya lo probé y funciona correctamente. Te puse un formato para la fecha y la hoja, ya que en los nombres de archivo no están permitidos los caracteres / : Sub Guardar_Hoja() Dim Ruta As String, NombreCarpeta As String Dim fechaActual As...

Estoy poniendo el año actual. Pon lo siguiente en un botón Private Sub CommandButton1_Click() mes = ComboBox1.ListIndex + 1 Range("B2") = DateSerial(Year(Date), mes, Val(TextBox1)) End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o la: Lo más simple es que cambies el nombre del rango por la columna, por ejemplo: MsgBox WorksheetFunction.CountIfs(Range("E:E"), "CRÍTICA", Range("F:F"), "SI") La otra opción, suponiendo que tu primer rango está en la columna E y el segundo en...

Listo, le hice algunos ajustes a tu código: Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Dim fila As Integer fila = Target.Row 'verifico que el cambio sea en la columna C, G o N7 If Not Intersect(Target, Range("C33:C64,...

H o la: Tienes esto: Private Sub form_Click() Dim h, i Set h1 = Sheets("INGRESAR DATOS") Set h2 = Sheets("TABLA DE DATOS") If h1.AutoFilterMode Then h.AutoFilterMode = False For i = 3 To h1.Range("C" & Rows.Count).End(xlUp).Row nomb.AddItem...