UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Ayuda con mi magro de agregar el 17/06/14, 09:01 pm

Josefran


Hola Buenas noches, tenia un ejemplo de agregar que agregaba bien pero ahora no se en que me equivoque o me falta, quisiera que se agregen al final de cada columna correspondiente, pero me lo agrega varias filas abajo, y aparte ahora se remplazan los datos donde lo pega y aparte ya no me valida de que no se repitan.
   
1.-Me gustaria poder ingresar abajo de cada respectiva columna sin que deje espacios, y sin que se repitan datos si no es mucha molestia

Dejo mi correo y una imagen y gracias de antemano

Dejo el link de DropBox porque ya no me dejo adjuntar mas archivos dice que sobrepase el maximo...
https://www.dropbox.com/s/mjbolrzqof16p5k/Confi.zip


https://www.dropbox.com/s/mjbolrzqof16p5k/Confi.zip

2RESUELTO Re: Ayuda con mi magro de agregar el 17/06/14, 09:44 pm

tyno


Jose, prueba con este código en el botóin agregar:

Private Sub btnAgregar_Click()
On Error Resume Next
rw = Range("q3:q65536").Find("").Row
Cells(rw, 17) = cmbSistema
Cells(rw, 18) = cmbSegmento
Cells(rw, 19).Value = txtSistema
Cells(rw, 20).Value = txtSegmento

'borrar controles
Dim ctrl As Object
For Each ctrl In Me.Controls
ctrl = ""
Next

End Sub

Si las columnas de los datos no coinciden solo modifica los valores ¿sabes cual es la columna en el objeto Cells? siempre es Cells(row, column), o sea que si quieres modificar la columna modificas el valor column, por ejemplo Cells(rw, 17) la columna determinada es la 17 o sea la Q.

Otra cosa, me parece que no tiene sentido utilizar este método: 

Private Sub txtSegmento_Change()
    Range("R4").FormulaR1C1 = txtSegmento
End Sub

Private Sub txtSistema_Change()
  Range("Q4").FormulaR1C1 = txtSistema
End Sub



...para ingresar datos en la Hoja a través de tu formulario si tienes un botón para agregar los datos. Me parece que lo mejor es que selecciones primero todos los datos en el formulario que vas a ingresar en la Hoja y luego das al botón AGREGAR. Por lo tanto tendrías que quitar esas instrucciones.



Saludos

3RESUELTO Re: Ayuda con mi magro de agregar el 18/06/14, 12:51 pm

Josefran


Gracias Tyno, Como siempre me diste la idea y la soluccion, pero igual agradescto tu tiempo gastado en mi, ten buen dia.

Uso estos para que yo vea que se  esta modificando, igual creo en un futuro ocultare todo y dejare solo el libro de configuracion con un boton para abrir todo el menu.
Private Sub txtSegmento_Change()
    Range("R4").FormulaR1C1 = txtSegmento
End Sub

Private Sub txtSistema_Change()
  Range("Q4").FormulaR1C1 = txtSistema
End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.