lunes, 8 de julio de 2013

Códigos de Maquetació (HTML) :)

INDEX

!DOCTYPE= html /
html
Diseño y Maquetación de Páginas Web

Mi Música

Descargar música
Letras de Canciones
Más

La música es un buen modo de expresar lo que sientes
de una forma creativa, sana y divertida.

Hay música que te hace bailar, cantar o simplemente
relajarte.

Videos de interes
Bailes Chistosos
Bailes Prefesionales

/html>

css

*{
margin: 0px;
padding: 0px;
background: url("..//img2/k.png");
}
#header{
background: url("..//img2/n.png");
height: 100px;
width: 100%;
}
#nombre{
background: url("..//img2/n.png");
color: black;
font-family: Estrangelo Edessa;
font-size: 50;
height: 100px;
line-height: 100px;
margin-left: 20%;
position: absolute;
text-align: left;
width: 300px;
}
#nav{
background: url("..//img2/n.png");
height: 100px;
line-height:100px;
margin-left: 50%;
position: absolute;
width: 600px;
}
#nav a {
background: url("..//img2/n.png");
color: black;
font-family: arial;
font-size: 27px;
text-decoration: none;
}
#nav a:hover{
background: url("..//img2/n.png");
color: yellow;
text-decoration: underline;
}
#contenedor{
background: url("..//img2/s.png");
box-shadow: 3px 30px 30px 30px gray;
height: 840px;
margin: auto;
width: 900px;
}
#encabezado{
background: url("../img2/l.png");
border-radius: 20px 20px 20px 20px;
font-family: Consolas;
font-size: 35px;
height: 300px;
margin-left: 10px;
margin-top: 10px;
position: absolute;
text-align: right;
width: 880px;
}
#sec1{
background: url("../img2/ñ.png");
height: 250px;
margin-left: 10px;
margin-top: 320px;
position: absolute;
width: 286px;
}
#sec2{
background: url("../img2/q.png");
height: 250px;
margin-left: 306px;
margin-top: 320px;
position: absolute;
width: 287px;
}
#sec3{
background: url("../img2/p.png");
height: 250px;
margin-left: 604px;
margin-top: 320px;
position: absolute;
width: 286px;
}
#sec4{
background: url("../img2/o.png");
font-family: Gungsuh;
font-size: 25;
height: 250px;
margin-left: 10px;
margin-top: 580px;
position: absolute;
text-align: left;
width: 583px;
}
#sec5{
background: url("..//img2/f.png");
height: 250px;
margin-left: 604px;
margin-top: 580px;
position: absolute;
width: 286px;
}
#sec1, #sec2, #sec3, #sec4, #sec5{
border-color: #000;
border-bottom: solid 4px;
border-top: solid 4px;
border-radius: 2em;
}
#footer{
background: url("..//img2/n.png");
color: black;
font-family: Estrangelo Edessa;
font-size: 30;
height: 100px;
text-align: center;
text-decoration: none;
width: 100%;
}
#footer a{
background: url("..//img2/n.png");
font-size: 30;
color: black;
text-decoration: none;
}
#footer a:hover{
background: url("..//img2/n.png");
color: black;
font-size: 35;
}

Página con Marco Flotante

Página principal

html

Florería

D. Rosas
D. Ramos
Arreglos
Decoración
Contactos

VISITANOS PRONTO________________VISITANOS PRONTO________________VISITANOS PRONTO________________VISITANOS PRONTO________________VISITANOS PRONTO________________VISITANOS PRONTO

html

Página dentro del Marco Flotante

html

Arreglos

ARREGLOS

Ven a deleitarte con nuestra gran variedad de "Arreglos"
tenemos en distintos colores, tamaños, etapas, en fin hay justo de lo que estas buscando y hasta lo que no te esperabas ver!

/html

Códigos de Maquetació (HTML)

INDEX

!DOCTYPE= html /
html
Diseño y Maquetación de Páginas Web

Mi Música

Descargar música
Letras de Canciones
Más

La música es un buen modo de expresar lo que sientes
de una forma creativa, sana y divertida.

Hay música que te hace bailar, cantar o simplemente
relajarte.

Videos de interes
Bailes Chistosos
Bailes Prefesionales

/html>

css

lunes, 6 de mayo de 2013

Factura grande y Facturación para Existencias

http://visualbasicdarlin23.blogspot.com/2013/05/formulario-para-ingresar-un-nuevo.html

Factura Corta

Primero hacemos el diseño en el userfrom.

Luego le colocamos nombre a los textbox a modo de que se nos facilite la programación de cada uno de ellos.

El primero que veremos es EL BOTÓN IMPRIMIR

Sheets("clientes").Select
Range("A1").Select
If Comparacion.Caption = NIT Then
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell = NIT.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = NOMBRE.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = DIRECCION.Value
End If

Sheets("factura").Select
Range("E4").Select
ActiveCell = NIT.Value
Range("E3").Select
ActiveCell = NOFAC.Caption
Range("E5").Select
ActiveCell = FECHA.Value
Range("C4").Select
ActiveCell = NOMBRE.Value
Range("C5").Select
ActiveCell = DIRECCION.Value

MsgBox "LA FACTURA SE IMPRIMIO CON EXITO!", vbOKOnly, "FELICIDADES"
COD1 = Empty
PROD1 = Empty
PREC1 = Empty
CAN1 = Empty
SUB1 = Empty
EX1 = Empty
TOTAL = Empty
COD1.SetFocus
[J25] = [J25] + 1

El BOTÓN LIMPIAR

Private Sub CC_LIMPIAR_Click()
Sheets("factura").Select
NOMBRE = Empty
DIRECCION = Empty
NIT = Empty
COD1 = Empty
PROD1 = Empty
PREC1 = Empty
CAN1 = Empty
SUB1 = Empty
EX1 = Empty
TOTAL = Empty
NIT.SetFocus
End Sub

Private Sub COD1_Change()
If NIT.Value = "" Then
COD1 = Empty
NIT.SetFocus
Else

Sheets("base_de_datos").Select
Range("k20").Select

On Error Resume Next
Cells.Find(What:=COD1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate

Comparacion.Caption = ActiveCell

ActiveCell.Offset(, 1).Select
PROD1.Value = ActiveCell
ActiveCell.Offset(, 1).Select
PREC1.Value = ActiveCell
ActiveCell.Offset(, 1).Select
EX1.Value = ActiveCell
End If
End Sub

EL BOTÓN AGREGAR
UserForm4.Hide
End Sub

Private Sub CommandButton2_Click()
If NOMBRE = emtpy Or DIRECCION = Empty Or NIT.Value = Empty Or COD1.Value = Empty Or CAN1.Value = Empty Then
MsgBox "debe llenar todos los campos para procesar la factura", vbOKOnly, "ERROR!!!!"
If NOMBRE = Empty Then
NOMBRE.SetFocus
End If
If DIRECCION = Empty Then
DIRECCION.SetFocus
End If
If NIT = Empty Then
NIT.SetFocus
End If
If COD1 = Empty Then
COD1.SetFocus
End If
If CAN1 = Empty Then
CAN1.SetFocus
End If
Else
ActiveCell = EX1.Value
Sheets("factura").Select

On Error Resume Next
Range("B9").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell = COD1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = PROD1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = PREC1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = CAN1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = SUB1.Value

Range("F19").Select
TOTAL = Val([F19])

COD1 = Empty
PROD1 = Empty
PREC1 = Empty
CAN1 = Empty
SUB1 = Empty
COD1.SetFocus
Sheets("factura").Select
Range("B9").Select
End If
End Sub

EL TEXTBOX QUE NOS SERVIRÁ PARA COLOCAR EL NIT

Private Sub NIT_Change()
Sheets("clientes").Select
Range("a1").Select

On Error Resume Next
Cells.Find(What:=NIT, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate

Comparacion.Caption = ActiveCell

If Comparacion.Caption = NIT Then
Selection.Offset(, -2).Select
NOMBRE.Value = ActiveCell
Selection.Offset(, 1).Select
DIRECCION.Value = ActiveCell
End If

If NIT = Empty Then
Selection.Offset(, 5).Select
NOMBRE.Value = Empty
DIRECCION.Value = Empty
End If
End Sub

EL TEXTBOX PARA SUBTOTAL
(Yo le puese el nombre de "SUB1")

TOTAL = Val(SUB1)
If SUB1 = "" Then
TOTAL = ""
End If
End Sub

Se programa el USERFROM *Se coloca en Initialize*
Private Sub UserForm_Initialize()
NIT.SetFocus
FECHA = Date
Sheets("base_de_datos").Select
NOFAC = [J25] + 1
End Sub

Previo a esto tu haces tus formatos en excel, como estos:

CLIENTES

BASE DE DATOS

FACTURA

Y ya tenemos otro Sistema de Facturación terminado.

Formulario de Visual Basic, "Cuadros Combinados"

Lo que haremos es un formulario especial de Visual Basic con "Cuadros Combinados"

Les pondremos nombre a los cuadros de texto.
1- Textbox1
2- nombre
3- edad
4- cc_orden
5- registro
6- cc_ext
7- cc_genero

Ya con los nombre asignados programaremos el botón guardar.

Con los siguientes códigos.

Private Sub CommandButton1_Click()
Dim respuesta As String
Dim ultimalinea As Double
Dim penultimalinea As Double
Dim numero As String
Dim numero2 As String
Dim msg As String

If nombre = "" Or edad = "" Or cc_orden = Empty Or registro = "" Or cc_ext = Empty Or cc_genero = Empty Then
respuesta = MsgBox("No deje espacios en blanco!", vbOKOnly, "Error!!!")
nombre.SetFocus

Else
ultimalinea = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
penultimalinea = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
penultimalinea = penultimalinea - 1
numero2 = Cells(penultimalinea + 1, 1)
If numero2 = "No." Then
Cells(ultimalinea + 1, 1) = 1
Else
numero2 = numero2 + 1
Cells(ultimalinea + 1, 1) = numero2
TextBox1.Value = numero2
End If

Cells(ultimalinea + 1, 2) = nombre.Value
Cells(ultimalinea + 1, 3) = edad.Value
Cells(ultimalinea + 1, 4) = cc_orden.Value
Cells(ultimalinea + 1, 5) = registro.Value
Cells(ultimalinea + 1, 6) = cc_ext.Value
Cells(ultimalinea + 1, 7) = cc_genero.Value

msg = MsgBox("¿Desea agregar otro registro?", vbYesNo, "Continuar...")
If msg = vbYes Then
TextBox1 = Empty
nombre = Empty
edad = Empty
cc_orden = Empty
registro = Empty
cc_ext = Empty
cc_genero = Empty
nombre.SetFocus
Else
UserForm1.Hide
End If
End If
End Sub

Una vez programado este botón, debemos programar, el userfrom, entonces hacemos doble clic sobre el userfrom, y le colocamos los siguiente códigos.

Private Sub UserForm_Activate()
cc_orden.AddItem "A-1"
cc_orden.AddItem "B-1"
cc_orden.AddItem "C-1"
cc_orden.AddItem "D-1"
cc_orden.AddItem "E-1"

cc_ext.AddItem "Guatemala"
cc_ext.AddItem "Antigua Guatemala"
cc_ext.AddItem "Santa Rosa"
cc_ext.AddItem "El Progreso"
cc_ext.AddItem "Escuintla"

cc_genero.AddItem "Masculino"
cc_genero.AddItem "Femenino"

End Sub

*Los codigos que programes directamente en el userfrom los puedes cambiar, cambiando lo que se encuentra dentro de los paracentesis.

*Previo a esto, debes realizar una tabla en excel, similar a esta:

Hecho esto, Ya tienes tu formulario listo para utilizar.

martes, 9 de octubre de 2012

BOTON LOGIN VARIOS USUARIOS
Private Sub LOGIN_Click()
If usuario.Text = Hoja1.Range("a1") And contraseña.Text = Hoja1.Range("b1") Or usuario.Text = Hoja1.Range("a2") And contraseña.Text = Hoja1.Range("b2") Or usuario.Text = Hoja1.Range("a3") And contraseña.Text = Hoja1.Range("b3") Or usuario.Text = Hoja1.Range("a4") And contraseña.Text = Hoja1.Range("b4") Or usuario.Text = Hoja1.Range("a5") And contraseña.Text = Hoja1.Range("b5") Or usuario.Text = Hoja1.Range("a6") And contraseña.Text = Hoja1.Range("b6") Or usuario.Text = Hoja1.Range("a7") And contraseña.Text = Hoja1.Range("b7") Then
MsgBox "BIENVENIDO A CLARO", vbInformation, "felicidades"
UserForm2.Show
Else
MsgBox "Nombre de usuario o Contraseña Incorrecta", vbCritical, "alerta"
End If

TEXTBOX USUARIO
Private Sub usuario_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
usuario.Text = ""
usuario.ForeColor = &HFFFF&
End Sub

TEXTBOX CONTRASEÑA
Private Sub contraseña_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If usuario.Text = "USUARIO" Or usuario.Text = "" Then
MsgBox "Por favor Ingrese su Nombre de Usuario"
Else
contraseña.PasswordChar = "*"
contraseña.Text = ""
contraseña.ForeColor = &HFFFFFF
End If

BOTON CANCELAR
Unload Userform.....

Yo Puedo Hacerlo

Vistas de página en total

lunes, 8 de julio de 2013

Códigos de Maquetació (HTML) :)

INDEX

css

Página con Marco Flotante

Página principal

Página dentro del Marco Flotante

ARREGLOS

Códigos de Maquetació (HTML)

INDEX

css

lunes, 6 de mayo de 2013

Factura grande y Facturación para Existencias

Factura Corta

Formulario de Visual Basic, "Cuadros Combinados"

martes, 9 de octubre de 2012