Dante Amor

Pon imágenes de lo que tienes en una hoja y de lo que esperas como resultado en la otra hoja.

Utiliza el icono para poner código. Tu macro está incompleta. Tienes un IF pero no cierras con un End IF. Sub macro1() Dim arch As String Dim s1 As Worksheet, s2 As Worksheet, l2 As Worksheet Dim lr As Long ' Application.ScreenUpdating = False ' Set...

Prueba lo siguiente: En los textbox ingresa las fechas de esta manera, dd/mm/aaaa por ejemplo, 20 de marzo de 2021 lo capturas como 20/03/2021 Pon lo siguiente en el botón: Private Sub CommandButton1_Click() Dim x As Date Dim y As Date x =...

Si estás en un formulario, utiliza el evento Change del Textbox: Private Sub TextBox1_Change() TextBox1 = Replace(TextBox1, ",", ".") End Sub

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...

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

Intenta solamente con la variable (sin comillas) archivo = "d:\carpeta\ejemplo.bat" Shell (archivo)