bacter582

Amigo aquí te escribo una posible solución Private Sub CommandButton8_Click() Dim R As Range Dim T As String Dim C As String For i = 1 To Sheets.Count Set R = Sheets(i).Range("A1:SZ50") If Me.Uno.Text = "" Then T = T & "?" Else T = T & Uno.Text If...

Espero te ayude, borre el contenido, si quieres eliminar la fila solo hay que cambiar en la línea donde dice ClearContents Sub Borrar_Filas() Dim i As Integer Dim condicion As Boolean condicion = True While condicion i = i + 1 condicion = False If...

Tengo un conocimiento nivel intermedio/Alto en VBA, realizando una solución para un amigo, me encontré con un problema que no he podido encontrarle solución, espero me puedan ayudar Lo voy a resumir de la manera más sencilla posible En la celda a1...

Amigo por que no pruebas haciendo referencia directa sin activar la hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) Empresa = UCase(Sheets("Parametros_NV").Range("T1").Value) IngNiv1 = Sheets("Parametros_NV").Range("J4").Value IngNiv2 =...

Como estas amigo, para que aperezca un botón rojo si no se cumplen ciertas condiciones es sencillo, pero para que el mismo titile, se complica bastante la cosa por que se necesita un control timer como el de VB6, que no tiene el VBA. ¿En tu programa...

No me llego el mensaje completo

Como estas hermano, prueba esta fórmula =SI(HORA(E10)<8;60-MINUTO(E10);MINUTO(E10))

Espero estés bien Prueba con este código a ver si te resuelve el problema Sub aumentar_50() Dim fotografía As Variant Application.ScreenUpdating = False Set fotografía = ActiveCell.Worksheet.Shapes("Picture 2") With fotografía .Width = .Width * 1.5...

Como estas hermano, estuve de viaje y no había visto tu pregunta, si todavía tienes la duda te respondo según lo que entiendo. Quieres que después de darle click al botón el textbox1 sea seleccionado Para eso pruébalo de esta manera Private Sub...

¿Cómo estas amigo, tienes todas las fechas en un libro de excel? Si es así lo puedes hacer con la función concatenar =concatenar(a1;"´")