calvuch

Prueba esta macro Sub guardar_como() ' Dim ruta As String ruta = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Libro de Excel,*.xls") If ruta = False Then Exit Sub If Len(ruta) = 0 Then Exit Sub ActiveWorkbook.SaveAs Filename:=ruta,...

Prueba esto Sub INSERTARNOMBREHOJA() For Each hoja In ThisWorkbook.Sheets If hoja.Index > 1 Then hoja.Range("B15").Value = hoja.Name Next hoja End Sub Bye

Pero para eso no es necesario programar anda, vale la pena realizar dos cosas nada más 1. Selecciones el rango completo A:B 2. Utilice la herramienta ordenar A-Z (ordenando por la columna B ), al ordenar todos los coincidentes te quedaran arriba y...

Revise tu pregunta y eso es posible, te comento que la macro quedo definida de la siguiente manera tu indica Columan1 y Columna2, yo asumo que indicas Columna A y Columna B en la hoja1 tu escribes el código que sea( en este caso el A800001), luego el...

Si entiendo bien, lo que deseas es que tu macro tome el nombre del libro activo, es decir desde el cual invocas la macro y que finalmente recibirá el dato a copiar pues bien, esta linea te da el nombre del libro Activo (el que esta en primer plano en...

Agrega un espacio al final de cualquiera de las dos cadenas y ya serán registros diferentes

Para esto lo siguiente Consideramos 2 hojas Hoja 1 y Hoja 2 En hoja1 deben estar los rótulos en Fila1 en hoja2 debes escribir el rotulo deseado a buscar en fila1 no importa que columna al ingresar el rotulo en hoja2 fila1 se activa el evento change...

Prueba esto: Sub CopiarHojas() Dim h1 As String Dim h2 As String h1 = "SI-anidado 1" h2 = "SI-anidado 2" Cells.Select Sheets(Array(h1, h2)).Select Sheets(h2).Activate Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues,...

Prueba esto: Option Explicit Dim fila As Long Private Sub Total(f As Long) Dim Total As Single Dim continuar As Boolean Dim x As Integer If Range("AX" & f) <= 0 Then Exit Sub If Range("AX" & f) > Range("O" & f) Then MsgBox Prompt:="El valor...

Si es posible, pero dime, en donde deseas que te presente el resultado, ¿en qué celda de la planilla? Bye