Jump to content

supervoro

Members
  • Posts

    556
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by supervoro

  1. Re: Macro para formulario (crear hoja de calculo segun cliente) Hola Nsl.... Prueba a ver si con esta modificacion te vale... He creado una variable llamada Nombre y un tratamiento de error para el caso de que la hoja del cliente ya este creada... El resto esta como lo tenias tu. Private Sub CommandButton5_Click() Dim uf Dim nombre As String nombre = ComboBox2 On Error GoTo salta Sheets(nombre).Select On Error GoTo -1 GoTo continua salta: Sheets("hoja1").Select Sheets("Hoja1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name = ComboBox2 continua: uf = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1 If OptionButton3 = True Then Range("A" & uf) = "Retiro" Else Range("A" & uf) = "Envio" End If Range("B" & uf) = ComboBox2 Range("C" & uf) = ComboBox3 Range("D" & uf) = TextBox1 Range("E" & uf) = TextBox2 Range("F" & uf) = TextBox3 Range("G" & uf) = TextBox4 Range("H" & uf) = TextBox5 Range("I" & uf) = TextBox6 Range("J" & uf) = TextBox7 Range("K" & uf) = TextBox8 Range("L" & uf) = TextBox9 Range("N" & uf) = TextBox10 Range("O" & uf) = TextBox11 Range("P" & uf) = TextBox12 Range("Q" & uf) = TextBox13 Range("R" & uf) = TextBox14 Range("S" & uf) = TextBox15 Range("M" & uf) = Val(TextBox4.Value) + Val(TextBox5.Value) + Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) Range("T" & uf) = TextBox25 Range("U" & uf) = TextBox26 If CommandButton5 Then clic.Sub go TextBox1 = "" TextBox4 = "" TextBox5 = "" TextBox6 = "" TextBox7 = "" TextBox8 = "" TextBox9 = "" TextBox10 = "" TextBox11 = "" TextBox12 = "" TextBox13 = "" TextBox14 = "" TextBox15 = "" TextBox25 = "" TextBox26 = "" End Sub
  2. Re: si cambia el valor de una celda, la celda adyacente indique el valor que estaba a Hola Delvalle.... A ver si he entendido bien... Si copias todos los valores aque hay en la columna "A", y vas a la columna "B" y Pegado Especial ( Pegar Valores ).... ¿ Es esto lo que quieres..?
  3. Re: Error en Macro al restar dos fechas: 'No coinciden los tipos' Hola Drakecillo... sin entrar muy a fondo... mira a ver si sustituyendo esta linea : ActiveCell.Offset(1, 6).Value = ActiveCell.Offset(2, -6).Value - ActiveCell.Offset(1, -6).Value) ... por esta otra ActiveCell.Offset(1, 6) = CDate(ActiveCell.Offset(2, -6)) - CDate(ActiveCell.Offset(1, -6) se soluciona el asunto... Saludos
  4. Hola Catoncia... Mira a ver si con esto que te mando te soluciona el asunto..., sino .. comentas Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = TextBox1 & "%" End Sub Saludos.
  5. Ahi va el archivo...que se habia extraviado. Prueba Formato Condicional_A.zip
  6. Hola himself revisa el siguiente adjunto...espero te sirva.
  7. Hola jdana123... En primer lugar darte la bienvenida al foro y decirte que .... si subieses el archivo en el que estas trabajando..quiza fuese mas facil para nosotros el poder echarte una mano... Saludos
  8. Hola Juan 1843... Bienvenido al foro aunque supongo podria depurarse algo mas... mira a ver si esta te sirve.. Sub limpiar() Dim uf As Integer uf = [a65536].End(xlUp).Row Dim texto As String [a3].Activate Do While ActiveCell.Row < uf uf = [a65536].End(xlUp).Row texto = Mid(ActiveCell, 1, 19) If texto = "Comentario Referido" Then ActiveCell.Offset(1, 0).Select repite: If ActiveCell <> "" Then Selection.Delete Shift:=xlUp GoTo repite End If If ActiveCell.Offset(1, 0) = "" Then ActiveCell.Offset(1, 0).Select Selection.Delete Shift:=xlUp End If End If ActiveCell.Offset(1, 0).Select Loop End Sub
  9. Hola denuevo adumith.... A ver si ahora tambien acierto y es esto lo que quieres... En la hoja de Excel...menu Herramientas__Opciones__en la pestaña_Ver__( abajo a la izquierda )quitale la marca a "Lineas de division"....a ver si fuese eso .... Saludos.
  10. Hola adumith... No se si esto es lo que buscas....: Al abrir el archivo... cuando la hoja aun esta desprotejida....Situate dentro del Rango A13:G12 y en el menu Formato...Celdas..Portejer..desactivas la opcion Bloqueada. Haz lo mismo con el otro Rango... a ver si fuese eso lo que buscas...
  11. Hola tiba.... He leido y releido tu "problemon" y la verdad es que no entiendo nada.... Intenta ser mas explicito, di lo que quieres conseguir claramente y... seguro que encuentras alguien que te eche una mano. Saludos.
  12. Re: Macro con doble clave de apertura para solo poder abrir una vez el archivo con la Hola German... Revisa esta macro a ver si te sirve la idea...( la primera contraseña de apertura es"Salvador"...... las siguinetes veces la contraseña sera "1234"). Private Sub Workbook_Open() Dim contraseña As String contraseña = "Salvador" Application.Visible = False clave = InputBox("Introduzca la contraseña..") If clave = "" Then Exit Sub If [a2] = " " Then contraseña = "1234" If clave <> contraseña Then Application.Quit Else Application.Visible = True [a2] = " " 'dos espacios vacios.. ActiveWorkbook.Save End If End Sub Observa que la condicion para que cambie es que el valor de "A2" sea dos espacios en blanco...esa condicion la puedes acoplar o variar segun tu archivo.. Salvador.
  13. Hola chavodelocho.... Bienvenido al foro y... para comenzar... revisa el adjunto a ver si parece en algo a lo que quieres... de momento. chavodelocho.zip
  14. Hola Neripin... Revisa el adjunto que te mando y comenta lo que sea.. (hay comentarios en su interior...) Saludos.
  15. Hola Nepirin... Bienvenid@ al foro... No tengo muy claro si se lo que quieres.... A lo que he entendido, y suponiendo que los datos originales estan en ( "Numero" columna B y" Valor" columna C , sin orden y todos en filas contiguas....). Revisa el siguiente adjunto... DATOSPBX.zip
  16. Hola grandeivid... Revisa el siguiente adjunto... La contraseña es "Salvador", cuando se introduce una contraseña erronea, durante tres intentos te dice cual es la verdadera, ( hay que tener en cuenta que cuando se accede al cuadro de entrada de contraseña despues del primer intento... hay que clickar en el cuadro para que quede activado,sino... no esta habilitado y no se puede introducir ningun dato..). la macro esta en el evento open de Thisboock Clave de Aceso.zip
  17. Gracias Luis.. me doy por enterado... ..( ya estaba pensando que tenia la cabeza peor de lo habitual..jajaja...) saludos.
  18. Hola gabonicabas y compañia.... No se que ha pasado ... pense que habia subido al foro una respuesta a este tema,pero... no la veo...en fin...... Yo tampoco se si entendi muy bien lo que querias,pero te adjunto mi propuesta a ver si te sirve... Los datos de la hoja Detalle se muestran filtrados cuando se hace doble clik sobre un codigo de la hoja Resumen. para quitar el filtro y que aparezcan todos los registros,basta con salir de la hoja al volver a acceder a ella Tambien se podria poner un boton en la hoja Detalles con una macro asociada para ver todos los registros sin filtrar ........ Revisa el adjunto y ya comentas lo que sea.... FiltrosxCliente.zip
  19. Hola chernandez1982.... Toma como ejemplo este trozo de codigo que te rellena los textbox Nombre y Rut con los datos de tu base de datos...Para completar todos los textbox de tu cliente... sigue introduciendo codigo.... Private Sub ListBox1_Click() Hoja4.[a:a].Find(what:=ListBox1.Column(0), lookat:=xlWhole).Activate TextBox48 = ActiveCell.Offset(, 3) TextBox49 = ActiveCell.Offset(, 1) End Sub Espero te sirva.
  20. Hola Gustavomeeuwes.... Crea un formulario con un textbox y un CommandButton y pega este codigo: Private Sub CommandButton1_Click() End End Sub Private Sub TextBox1_Change() [a1] = TextBox1 End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If [a1] <> Empty Then Dim datos As String datos = [a1].Text TextBox1 = Empty [a1] = datos Exit Sub End If End Sub
  21. Hola isma.hr... de momento prueba a introducir la hora de este modo: pulsa " Crtl " + "Shift" + "." ( control y Mayusculas y punto ).... en el teclado español funciona..... Saludos
  22. Hola Roro1981.... El codigo de barras es una identificacion unica de cada producto,es decir... que un producto cualquiera,tiene un numero de codigo de barras que exclusivo de el... y ningun otro producto puede tener el mismo numero de codigo... Otra cosa es que tu generes aleatoriamente unos codigos de barras y les asignes a cada uno un articulo ( a tu gusto )...,eso a nivel de uso particular no tiene problema,pero para un uso generalizado... no es correcto. Saludos
  23. Muchas gracias Rolano y Aosa... es justo lo que estaba buscando...sois geniales. Saludos.
  24. Hola a todos, quisiera hacer que un combobox se mostrara expandido al recibir el enfoque... ¿ alguien sabe el codigo para conseguirlo...?? Seguro que si... Gracias Salvador.
×
×
  • Create New...

Important Information

Privacy Policy