Saltar al contenido

silver_axe007

Miembros
  • Contador de contenido

    26
  • Unido

  • Última visita

  • Days Won

    1

Sobre silver_axe007

  • Rango
    Miembro

Formas de contacto

  • MSN Array
  • Skype Array
  • Facebook Array
  • Twitter Array

Información de perfil

  • Sexo Array
  • Localización: Array
  • Cosas que te gustan Array

Configuraciones

  • Campo que utilizas como separador de argumentos Array

Visitantes recientes del perfil

232 visitas de perfil
  1. Do While ActiveCell.Value <> "" inicio = Range("B1") & ActiveCell fin = Range("B1") valida = Dir(inicio) msgbox inicio & " - " & fin ' estas seguro que existe esa ruta ??? presentala para ver si te vale If valida = "" Then Else FSO.CopyFolder inicio, fin End If ActiveCell.Offset(1, 0).Select Loop
  2. Solo una correccion en tu codigo te digo por que a mi me dio Muelas llegar a esto espero te ayude Origen = "c:\DirectorioOrigen\*.*" ' yo no se por que a mi me pedia que especifique el *.* destino = "c:\DirectorioDestino\" ' y en el destino tenga al final la barra invertida o antislash "\" fso.CopyFolder origen ,destino ,1 ' el uno para que sobreescriba Espero te ayude
  3. Hola Alfonso5597 Es por esto que es importante los labels en los formularios asi podriamos entender a que va ... haber lo que entiendo quieres... que al poner en el text1 un valor que represente Bueno en el codigo preguntas esto , pero la pregunta es ... en que momento le das el valor a TotalV??? Entiendo que primero deberias dar la suma..... Private Sub CommandButton1_Click(): On Error Resume Next If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 10) Then TextBox1.BackColor = vbGreen If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 20) Then TextBox2.BackColor = &H80FF80 If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 30) Then TextBox3.BackColor = vbYellow If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 40) Then TextBox4.BackColor = &H80C0FF If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 50) Then TextBox5.BackColor = &H80C0FF If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 60) Then TextBox6.BackColor = &H80FF& If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 70) Then TextBox7.BackColor = &H80FF& If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 80) Then TextBox8.BackColor = vbRed If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 90) Then TextBox9.BackColor = vbRed If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 100) Then TextBox10.BackColor = vbRed End Sub Yo te recomiendo inicializar a 0 los text box y luego revisar una auna .. las validaciones.... No entiendo lo que quieres hacer pero ... espero te ayude. Private Sub CommandButton1_Click(): On Error Resume Next TotalV.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text) + CDbl(TextBox4.Text) + CDbl(TextBox5.Text) + CDbl(TextBox6.Text) TotalV.Text = CDbl(TotalV.Text) + CDbl(TextBox7.Text) + CDbl(TextBox8.Text) + CDbl(TextBox9.Text) + CDbl(TextBox10.Text) If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 10) Then TextBox1.BackColor = vbGreen If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 20) Then TextBox2.BackColor = &H80FF80 If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 30) Then TextBox3.BackColor = vbYellow If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 40) Then TextBox4.BackColor = &H80C0FF If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 50) Then TextBox5.BackColor = &H80C0FF If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 60) Then TextBox6.BackColor = &H80FF& If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 70) Then TextBox7.BackColor = &H80FF& If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 80) Then TextBox8.BackColor = vbRed If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 90) Then TextBox9.BackColor = vbRed If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 100) Then TextBox10.BackColor = vbRed End Sub
  4. Hasta donde se la hoja no la podrias blouear por sercciones.. lo que podrias es mostrar las 4 horjas y luego si no afectaria el proceso de una a otra...!! https://support.office.com/en-ie/article/view-multiple-panes-sheets-or-workbooks-fcdfb33e-5168-470d-a3d6-7ef1663599f3
  5. Utiliza Indirecto(la celda donde esta concatenado el valor ) y listo. si en A1 esta el valor 25 y en A2 el valor 60 si C5 pongo =indirecto ("A"&2) te aparecera 60 ' donde A es tu columna y 2 tu fila en tu ejemplo en F5 he colocado la formula Indirecto(F4) y me parece ZONA3 la corro a la derecha y estan los datos...
  6. Con una tabla dinamica te serviria? o como desea que muestre en una celda o un resumen¡? Kike encargó: 2x blanco 1x amarillo
  7. Si esta ordenada la solucion es la propuesta por Silvia.
  8. No se por que lo quieres en un Cambo.. pero en todo caso..... yo lo puse en un textbox cuando presionaba un boton... Considerando que los valores son numeros....... combobox4.value = (TextBox3.Text / ComboBox1.Value)
  9. este archivo lo abre de la ruta .. o de algun correo .. parece que abriera uno de correo por que lo guarda en el temporal del appdata...
  10. Si entiendo te explicaba como hacerlo .. pero me alegro qeu te haya servido la respues del colega ....
  11. Puede ser debido a que formato de la fecha sea diferente por eso era que yo lo manejaba como un string y no como fecha.. puede ser que en tu maquina el sistema de fechas sea mmddaaaa cuando en otros usan ddmmaaaa SAludos
  12. actualizando perfil

  13. Que yo valido las fechas como cadenas de texto y el las valida como Strings .. aunque creo que no se dio cuenta que en mi ejemplo ya la habia cambiado el nombre del control de CB1 a combobox1 luego no habria diferencias.
  14. Gracias por la correccion, yo las estaba validando como String pero acabo de aprender algo nuevo Muchas gracias!!!
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.