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

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

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)

Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el dato en el textbox1" TextBox1.SetFocus Exit Sub End If With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Value .List(.ListCount - 1, 1) =...

Revisa lo siguiente: Sub Abrir_Archivo() Dim arch As String Dim estado As Boolean ' arch = "c:\trabajo\diario de consulta.xlsx" ' On Error Resume Next Open arch For Binary Access Read Write Lock Read Write As #1 Close #1 estado = Err.Number Err.Clear...

Libro origen, cómo se llama el libro, la hoja y las celdas que quieres copiar. Libro destino, cómo se llama el libro, la hoja y las celdas dónde quieres pegar.

¿A partir de cuál celda exactamente quieres pegar? Prueba esto. Cambia "A1" por la celda inicial de pegado. Sub test() Sheets("PO").Select Range("C:D,G:G,R:R,AD:AD,AF:AM,AU:AV").Copy Sheets("New_POTemp").Select Range("A1").Select ActiveSheet.Paste End Sub