Copiar celda en un rango especifico

Tengo un formulario que selecciona una un rango de una hoja, y trae los datos para poder modificarlos, una vez modificados en el formulario, copia unas fórmulas en la hoja y dichos datos los traslada a de unas celdas a otras, el problema es que alguna instrucción está mal y no me permite copiar los datos que tengo en unos renglones de la celda a otros. La macro es la siguiente:

Option Explicit

Dim rango As Range

Private Sub CommandButton3_Click()

'Buscar

'si el combobox está vacio, te informa

If ComboBox2 = "" Then

MsgBox "selecciona algún dato para buscar", vbOKOnly + vbInformation, "AVISO"

ComboBox2.SetFocus

Exit Sub

End If

'Busca el código seleccionado en la columna A

Set rango = Range("A58:A67").Find(WHAT:=ComboBox2, _

LOOKAT:=xlWhole, LookIn:=xlValues)

'Si el dato ingresado no se encuentra en el rango, te informa

If rango Is Nothing Then

MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"

ComboBox2 = "": ComboBox1.SetFocus

Exit Sub

'si lo encuentra, llama los campos que se encuentran en la fila

Else

TextBox1 = Range("B" & rango.Row)

TextBox2 = Range("C" & rango.Row)

ComboBox1 = Range("D" & rango.Row)

End If

End Sub

Private Sub CommandButton4_Click()

'EDITAR

If rango Is Nothing Then

MsgBox "Aun no buscas ningun dato", vbOKOnly + vbInformation, "AVISO"

ComboBox2.SetFocus

End If

'si algún dato está en blanco, te avisa

If ComboBox2 = "" Or TextBox1 = "" Or ComboBox1 = "" Then

MsgBox "No dejes ningun campo obligatorio en blanco", vbOKOnly + vbInformation, "AVISO"

Exit Sub

End If

'aquí quiero que si el dato seleccionado en el combobox1 no comienza por los números 1110 u 1120 entonces informe y no permita continuar.

'cadena = Left(ComboBox1, 4)

'    If cadena <> "1110" Or cadena <> "1120" Then

' MsgBox "Debe seleccionar una que corresponda a una entidad bancaria", vbCritical, "aviso"

'    Exit Sub

'    End If

'si está correcto, ingresa los datos en la fila

ActiveSheet.Unprotect "XXX"

Range("B" & rango.Row) = TextBox1

Range("C" & rango.Row) = TextBox2

Range("D" & rango.Row) = ComboBox1

'ActiveSheet.Protect "XXX"

'escribo formulas en celdas de cuentas

Sheets("CONFIGURACION").Range("M2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[5])"

    Range("N2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[5])"

    Range("O2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[5])"

'escribo la cuenta en la celda M1

Range("M1") = ComboBox1

'escribo las formulas de la fila 1

    Range("O1").FormulaR1C1 = "=+MID(RC[-2],1,1)"

    Range("P1").FormulaR1C1 = "=+MID(RC[-3],1,2)"

    Range("Q1").FormulaR1C1 = "=+MID(RC[-4],1,4)"

    Range("R1").FormulaR1C1 = "=+MID(RC[-5],1,6)"

    Range("S1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"

    Range("T1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"

    Range("U1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"

    Range("V1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"

'escribo formulas de la fila 2

Sheets("CONFIGURACION").Range("M2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"

    Range("N2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"

    Range("O2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"

    Range("P2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"

'paso el dato de M2 a columna c

'aquí quiero que se pasen los datos de unas celdas a otras, pero en el mismo renglón del rango

'Sheets("CONFIGURACION").Range("I" & rango.Row) = Range("M2")       'clase

'Sheets("CONFIGURACION").Range("J" & rango.Row) = Range("N2")       'grupo

'Sheets("CONFIGURACION").Range("K" & rango.Row) = Range("O2")       'cuenta

'Sheets("CONFIGURACION").Range("L" & rango.Row) = Range("P2")       'cuenta2

'Sheets("CONFIGURACION").Range("M" & rango.Row) = Range("M1")        'subcuenta

ActiveSheet. Protect ("XXX")

Unload Me

End Sub

Si alguien me puede ayudar a corregir las instrucciones le agradezco de antemano.

1 Respuesta

Respuesta
1

H o l a:

Te anexo la macro actualizada, solamente me queda la duda si la hoja donde editas los datos y la hoja de "configuración" son la misma hoja.

Cambié tu variable "rango" por la variable "b", me gusta trabajar más con la variable "b".

Quité la instrucción "Option Explicit"

También arreglé la parte de la cadena.

Private Sub CommandButton3_Click()
'Buscar
    'si el combobox está vacio, te informa
    If ComboBox2 = "" Then
        MsgBox "selecciona algún dato para buscar", vbOKOnly + vbInformation, "AVISO"
        ComboBox2.SetFocus
        Exit Sub
    End If
    'Busca el código seleccionado en la columna A
    Set b = Range("A58:A67").Find(ComboBox2, LookAt:=xlWhole, LookIn:=xlValues)
    If b Is Nothing Then
        'Si el dato ingresado no se encuentra en el rango, te informa
        MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
        ComboBox2 = "": ComboBox1.SetFocus
        Exit Sub
    End If
    '
    TextBox1 = Range("B" & b.Row)
    TextBox2 = Range("C" & b.Row)
    ComboBox1 = Range("D" & b.Row)
End Sub
'
Private Sub CommandButton4_Click()
'EDITAR
'Act.Por.Dante Amor
    If ComboBox2 = "" Then
        MsgBox "selecciona algún dato para buscar", vbOKOnly + vbInformation, "AVISO"
        ComboBox2.SetFocus
        Exit Sub
    End If
    'Busca el código seleccionado en la columna A
    Set b = Range("A58:A67").Find(ComboBox2, LookAt:=xlWhole, LookIn:=xlValues)
    If b Is Nothing Then
        'Si el dato ingresado no se encuentra en el rango, te informa
        MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
        ComboBox2.SetFocus
        Exit Sub
    End If
    'si algún dato está en blanco, te avisa
    If ComboBox2 = "" Or TextBox1 = "" Or ComboBox1 = "" Then
        MsgBox "No dejes ningun campo obligatorio en blanco", vbOKOnly + vbInformation, "AVISO"
        Exit Sub
    End If
    'aquí quiero que si el dato seleccionado en el combobox1 no comienza por los números 1110 u 1120 entonces informe y no permita continuar.
    cadena = Left(ComboBox1, 4)
    If cadena <> "1110" And cadena <> "1120" Then
        MsgBox "Debe seleccionar una que corresponda a una entidad bancaria", vbCritical, "aviso"
        ComboBox1.SetFocus
        Exit Sub
    End If
    'si está correcto, ingresa los datos en la fila
        ActiveSheet.Unprotect "XXX"
        Range("B" & b.Row) = TextBox1
        Range("C" & b.Row) = TextBox2
        Range("D" & b.Row) = ComboBox1
    'escribo formulas en celdas de cuentas
        Sheets("CONFIGURACION").Range("M2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[5])"
        Range("N2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[5])"
        Range("O2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[5])"
    'escribo la cuenta en la celda M1
        Range("M1") = ComboBox1
    'escribo las formulas de la fila 1
        Range("O1").FormulaR1C1 = "=+MID(RC[-2],1,1)"
        Range("P1").FormulaR1C1 = "=+MID(RC[-3],1,2)"
        Range("Q1").FormulaR1C1 = "=+MID(RC[-4],1,4)"
        Range("R1").FormulaR1C1 = "=+MID(RC[-5],1,6)"
        Range("S1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"
        Range("T1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"
        Range("U1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"
        Range("V1").FormulaR1C1 = "=+VLOOKUP(RC[-4],'PLAN CTAS'!R6C1:R3000C2,2,0)"
    'escribo formulas de la fila 2
        Sheets("CONFIGURACION").Range("M2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"
        Range("N2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"
        Range("O2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"
        Range("P2").FormulaR1C1 = "=+CONCATENATE(R[-1]C[2],"" "",R[-1]C[6])"
    'paso el dato de M2 a columna c
    'aquí quiero que se pasen los datos de unas celdas a otras, pero en el mismo renglón del rango
        Sheets("CONFIGURACION").Range("I" & b.Row) = Range("M2")       'clase
        Sheets("CONFIGURACION").Range("J" & b.Row) = Range("N2")       'grupo
        Sheets("CONFIGURACION").Range("K" & b.Row) = Range("O2")       'cuenta
        Sheets("CONFIGURACION").Range("L" & b.Row) = Range("P2")       'cuenta2
        Sheets("CONFIGURACION").Range("M" & b.Row) = Range("M1")       'subcuenta
    '
    ActiveSheet.Protect ("XXX")
    Unload Me
End Sub
' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro copiar hoja y cambiarle nombre al MES siguiente del array?

Seria posible crear una macro que copie una hoja "MES (tipo)" y que la nueva hoja copiada se llamase "MES ENERO", y que al ejucutar nuevamente la macro copiase la hoja "MES (tipo)" y que la nueva hoja se llamase "MES FEBRERO", y asi sucesivamente...
1 respuesta

Excel VBA Macro Acregar Símbolo "/" para convertir Fecha

Podrán sugerirme Algún código que inserte "/", en celda activa, para que excel lo tome como fecha. Ejemplo: Celda B3 Texto "1022024" Solución: Celda B3 Modificada: 01/02/2024
2 respuestas

¿Cómo separo dos números que se encuentran en una sola celda de excel?

En una celda de excel se encuentran dos cantidades separadas por un guion. Quisiera separar el primer número en una segunda celda y el segundo número en una tercer celda. Ejemplo: A 1 48,264 - 65,371 2 55,555 - 66,666 3 . . . Debería quedar así: A B...
2 respuestas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas