Dante Amor

Me gustaría cambiar el nombre de cada hoja Si quieres aplicarlo para todas las hojas del libro, pon el siguiente código en los eventos de Thisworkbook. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address(0,...

¿En tu ejemplo existe alguna coincidencia? Puedes mostrarla. A qué te refieres con "contarlas" puedes poner imágenes con ejemplos de esas cuentas. Es decir, debes poner varios ejemplos que cumplan con las coincidencias y que en el ejemplo se vean...

Si a es menor a b que me reste Cuál sería la resta b menos a ó a menos b. Supongo que es b menos a. Prueba la siguiente fórmula en C2 y copia hacia abajo hasta el final de los datos. =SI(A2<B2,B2-A2,"")

Prueba lo siguiente: Sub Imprimir() Dim i As Long For i = 1 To 10 Range("L1").Value = i ActiveSheet.PrintOut Next End Sub

Tengo una macro que busca coincidencias Pon aquí tu macro, utiliza el icono para insertar código. En "sheet 1" D2 insertar bucle y cuando la búsqueda este en 100% o lo más cerca, se detenga. Explica aquí con imágenes lo que deseas. Lo que debe...

Con lo siguiente podrías copiar y pegar Sub prb() Sheets("ORIGEN"). Range("B8", Sheets("ORIGEN").Range("B" & Rows. Count).End(3)). Resize(, 5). Copy Sheets("Destino").Range("A" & Rows. Count).End(3)(2) End Sub Pero si no hay registros a copiar,...

Prueba lo siguiente: Sub LoopThroughFiles() Dim xFd As FileDialog Dim xFdItem As Variant Dim xFileName As String ' Set xFd = Application.FileDialog(msoFileDialogFolderPicker) If xFd.Show = -1 Then xFdItem = xFd.SelectedItems(1) &...

Revisa los siguientes enlaces: Listas desplegables dependientes en excel Como enlazar Listas desplegables dependientes Cómo crear listas desplegables dependientes Excel 2016 Lista desplegable excel con diferentes opciones Lista desplegable...

Tienes que hacerla visible para imprimirla. Una opción es utilizar lo siguiente, apagas la actualización de pantalla, haces visible la hoja y la imprimes, de esa manera no se muestra la hoja. Sub ImprimeHojaOculta() Application.ScreenUpdating = False...

Pon el siguiente código en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, rng As Range Dim n As Variant ' Set rng = Intersect(Target, Range("E:E, K:K"), Rows("2:" & Rows.Count)) If Not rng Is Nothing Then...