Macros desplazar contenido a la izquierda
Hola experto, un saludo a la distancia...
Tengo generado un código, que me corre muy bien a lo que necesito y me centra todo.
El problema:
necesito que al copiarme los datos a las demás hojas; la columna B, NO ESTE CENTRADO, sino que este alineado el texto a la izquierda.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Column = 21 And .Row > 3 And .Value <> "" Then
fila = .Row
Application.ScreenUpdating = False
n = "F"
For Each hoja In Sheets
If hoja.Name <> "Hoja1" And hoja.Name <> "Hoja2" And hoja.Name <> "Hoja3" Then
With Sheets(hoja.Name)
uf = .Range("B" & Rows.Count).End(xlUp).Row
Cells(fila, "B").Copy .Range("B" & uf).Offset(1)
.Range("C" & uf).Offset(1) = n
End With
End If
Next hoja
Application.CutCopyMode = False
MsgBox "Datos copiados", vbInformation, "Copiar..."
End If
End With
Application.ScreenUpdating = True
End Sub
...............
Espero me pueda ayudar.
1 Respuesta
Prueba con lo siguiente.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Column = 21 And .Row > 3 And .Value <> "" Then
fila = .Row
Application.ScreenUpdating = False
n = "F"
For Each hoja In Sheets
If hoja.Name <> "Hoja1" And hoja.Name <> "Hoja2" And hoja.Name <> "Hoja3" Then
With Sheets(hoja.Name)
uf = .Range("B" & Rows.Count).End(xlUp).Row
Cells(fila, "B").Copy .Range("B" & uf).Offset(1)
.Range("C" & uf).Offset(1) = n
.Columns("B:B").HorizontalAlignment = xlLeft
End With
End If
Next hoja
Application.CutCopyMode = False
MsgBox "Datos copiados", vbInformation, "Copiar..."
End If
End With
Application.ScreenUpdating = True
End SubSaludos.Dam
Si es lo que necesitas.
