Quiero importar y exportar en una misma fila
Tengo un formulario en el que exporto información a excel (seccion, producto y fecha), tengo un item que se llama cantidad en la misma hoja de excel y quiero que ese se importe a el formulario en un textbox o en un mensaje una vez le de aceptar, no soy muy buena programando.
Deissy hice un cambio en su código y muestra el dato de la columna D, de acuerdo a lo que entendí que necesita, cualquier cosa comenta, saludos
Private Sub Btnaceptar_Click()
Dim nombre As String
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
NombreHoja = Me.Cobseccion.Value
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A1").CurrentRegion
With ThisWorkbook.Sheets(NombreHoja)
.Rows("2:2").Insert Shift:=xlDown
Rows("2:2").Interior.Pattern = xlNone
Rows("A2").Value = Cobseccion
Rows("B2").Value = Cobproducto
Rows("c2").Value = Txtfecha
nombre = Cells(2, 4)
MsgBox (nombre)
End With
End Sub
Private Sub UserForm_Initialize()
Set h = Sheets("Gallegas y tortas")
Set b = h.Columns("A").Find(Cobseccion)
If Not b Is Nothing Then
txtcantidad = h.Cells(b.Row, "D")
End If
End Sub
Puse de código esto, pero cuando le doy ejecutar aparece indice fuera de intervalo
Private Sub Btnaceptar_Click()
Dim nombre As String
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
NombreHoja = Me.Cobseccion.Value
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A1").CurrentRegion
With ThisWorkbook.Sheets(NombreHoja)
.Rows("2:2").Insert Shift:=xlDown
Rows("2:2").Interior.Pattern = xlNone
Rows("A2").Value = Cobseccion
Rows("B2").Value = Cobproducto
Rows("c2").Value = Txtfecha
End With
End Sub
Private Sub UserForm_Initialize()
Set h = Sheets("Gallegas y tortas")
Set b = h.Columns("A").Find(Cobseccion)
If Not b Is Nothing Then
Txtcantidad = h.Cells(b.Row, "D")
End If
Cobseccion.AddItem "Galletas y tortas"
Cobproducto.List = Worksheets("productos").Range("G6:G29").Value
End Sub
Private Sub Btncancelar_Click()
End
End Sub
Private Sub Btnlimpiar_Click()
Cobseccion = Empty
Cobproducto = Empty
Txtfecha = Empty
Txtcantidad = Empty
Cobseccion.SetFocus
Puede subir una copia de su archivo con datos para identificar el error.
Creo que aquí no se pueden subir archivos o no se como hacerlo, que pena.
Puede subirlo a googledrive con su cuenta gmail o onedrive con su cuenta de hotmail o live o enviarlo a mi correo [email protected]
Ya lo envíe a ese correo, la idea es que a la vez que se llenen los otros cuadros (sección, producto y fecha) aparezca la cantidad en el formulario pero que todo ocurra en la misma fila
De acuerdo a la imagen inicial de su pregunta, toma el primer registro de la columna DE siempre y cuando en la columna A no tenga datos, pero al hacer una prueba hay un error al intentar almacenar los datos, me gustaría saber un poco más de lo que se requiere en esa hoja y de como almacenara sus datos, para intentar resolver el problema.
