ayuda soy nuevo en esto!! - VB-MUNDO

frank1971 · #1 (**permalink**) 06-12-2006, 18:11:44

Hola: alguien pudiera ayudarme con un problema con un codigo quiero copiar e insertar una fila desde un formulario en otra hoja que no es la activa como puedo hacerlo?

aqui el codigo

Private Sub CommandButton1_Click()
Worksheets("Base Rentas").select
Rem inserta un renglón
Sheets("Base Rentas").Rows("5:5").Select
Selection.Copy
Sheets("Base Rentas").Rows("6:6").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox7 = Empty
TextBox10 = Empty
TextBox11 = Empty
TextBox12 = Empty
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub

frank1971 · #2 (**permalink**) 06-12-2006, 18:13:29

favor ayuda con esto!!!

J.M.Movilla · #3 (**permalink**) 06-12-2006, 20:46:49

Si a las 9:11 publicas tu pregunta, y a las 9:13 (DOS MINUTOS MÁS TARDE) estás ya reclamando que se te ayude, das a entender que has malinterpretado lo que es este foro. Somos rápidos (a veces en unos segundos puedes haber obtenido ya varias respuestas), pero no somos esclavos del ordenador, ni del foro, ni de los usuarios exigentes, ¿sabes? Ni siquiera podemos prometer que tu pregunta obtenga respuesta, porque no siempre se sabe la solución y no siempre se entiende la pregunta, como es tu caso (al menos para mí).

Así que, paciencia, por favor, que en esta vida todos lo queremos todo para ayer..., pero no siempre lo ofrecemos para mañana...

frank1971 · #4 (**permalink**) 06-12-2006, 21:42:01

Cita:

Empezado por J.M.Movilla

Si a las 9:11 publicas tu pregunta, y a las 9:13 (DOS MINUTOS MÁS TARDE) estás ya reclamando que se te ayude, das a entender que has malinterpretado lo que es este foro. Somos rápidos (a veces en unos segundos puedes haber obtenido ya varias respuestas), pero no somos esclavos del ordenador, ni del foro, ni de los usuarios exigentes, ¿sabes? Ni siquiera podemos prometer que tu pregunta obtenga respuesta, porque no siempre se sabe la solución y no siempre se entiende la pregunta, como es tu caso (al menos para mí).

Así que, paciencia, por favor, que en esta vida todos lo queremos todo para ayer..., pero no siempre lo ofrecemos para mañana...

Perdon no me maltinerpreten ,se como funciona esto de los foros pero me paso un pequeño percance y no me di cuenta hasta que lei su correo el segundo mensaje fue un error se me cayo la conexion en la oficina y no me percate que el primer mensaje habia sido publicado asi que mil disculpas fue una confusion.

como repito soy nuevo en esto ,el problema es que no puedo hacer referencia en el codigo a una hoja en la cual deseo copia e insertar una fila desde un formulario que esta en otra hoja.

frank1971 · #5 (**permalink**) 06-12-2006, 21:47:36

adjunto el archivo, gracias

J.M.Movilla · #6 (**permalink**) 07-12-2006, 09:28:31

Primero define que vas a usar 4 hojas

Código:

Dim ExcelWBk As Excel.Workbook ' El Libro
Dim ExcelWS(4) As Excel.Worksheet ' El área de trabajo: 4 Hojas

Cuando vayas a grabar datos, indica el número de Hoja

Código:

n=2 ' Para trabajar con los CARROS

Selecciona como área de trabajo esa hoja que has indicado

Código:

Set ExcelWS(n) = ExcelWBk.Worksheets(n) ' Selecciona el área de trabajo

Y ya puedes trabajar los campos de esa hoja

Código:

ExcelWS(n).Cells(nRow, nCol) = [Valor que quieras grabar en la celda indicada]