Dante Amor

Puedes poner el archivo en DropBox, googledrive o cualquier otra página que te permita almacenar archivos en la web. En dropbox ahí explican cómo puedes enlazar una carpeta de tu pc a los archivos de la web, de tal manera que tú puedes abrir el...

Utiliza la siguiente fórmula: =SUMAR.SI(E2:E8,VERDADERO,A2:A8) ejemplo:

En ese caso tiene que pasar celda por celda Algo como: Sub copia_test() Dim s1 As Worksheet, s2 As Worksheet Set s1 = Sheets("Hoja1") 'origen Set s2 = Sheets("Hoja1") 'destino 'La hoja2 recibe el valor de la hoja1 s2.Range("A1").Value =...

No veo en tu imagen las filas y las columnas de excel, traté de suponer en dónde está la información en cada columna y fila. Si tienes problemas con la macro, pon imágenes de tus 2 hojas, la hoja del msg y la hoja "Observaciones_ESP", pero completas,...

Prueba lo siguiente: Sub PDF() Dim num As String Dim ruta As String Dim arch As Variant ' num = Worksheets("Ficha").Range("F2").Value ruta = "C:\Users\Laura\Dropbox\DOCUMENTOS PERSONALES\CONSULTORIO\KARDEX\PDF KARDEX\" arch = Dir(ruta & "*" & num &...

Si quieres copiar la hoja "intereses", prueba lo siguiente: Sub CreaHoja() Worksheets("Intereses").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Hoja1.Range("c24").Value End Sub

Responde en el siguiente orden: 1. Pon una imagen con ejemplos para ver cómo tienes los datos en la hoja. 2. Una imagen de cómo quieres los datos en el correo. 3. ¿De dónde se obtiene el correo para cada proveedor? 4. Qué va en el asunto del correo.

Prueba esto: Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("B4")) Is Nothing Then Call Nombrar_Hojas End If End Sub

Prueba la siguiente macro Sub Nombrar_Hojas() Dim sh As Worksheet For Each sh In Sheets If sh.Range("A1").Value <> "" Then sh.Name = sh.Range("A1") End If Next End Sub

Prueba lo siguiente Sub Crear_Carpetas() Dim carpeta_inicial As String, carpeta_nombre As String Dim carpeta_fecha As String, carpeta_codigo As String ' carpeta_inicial = "C:\trabajo" carpeta_nombre = Sheets("Hoja1").Range("A2") carpeta_fecha =...