Fiscalia

Aqui la tienen: [code:1:66ff0bbfc0]Sub Desprotege() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "la hoja fue desprotegida" Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub [/code:1:66ff0bbfc0]

[quote:1906925b3e="ROSAISELASANCHEZ"]:) No es para presumir pero dejenme decirles, que yo nunca tome un curso de excel, simplemente la necesidad me llevó a esforsarme para aprender excel y word yo solamente soy una simple contadora privada y mi trabajo me obligo a leer y practicar. En mi trabajo a escondida imprimia los manuales de excel y word y por las noches los leia y los ponia en practica en mi trabajo, lo mismo hice con nomipaq y contpaq y ahorita le puedo decir que los dómino, tal vez no al 100% pero al menos no estoy en blanco y lo unico que les puedo decir que necesidad te obliga a estudiar y aprender, no hay edad para no estuidiar o aprender. Y eso de que por qu no hay tiempo es un pretexto que nosotros como seres humanos damos a cualquier cosa cuando no queremos poner de nuestra parte por aprender y dar más de lo que tenemos o de lo que queremos. P.D. Todos los dias aprendemos algo nuevo siempre y cuando lo buscamos y queremos. Esto es un incentivo para nunca rendirnos ante las adversidades del mundo actual.[/quote:1906925b3e] tu eres de las mias, con todo respeto: [img:1906925b3e]http://smileys.smileycentral.com/cat/36/36_3_11.gif[/img:1906925b3e]

Yo tengo la versión que corrio mucho en el periodo anterior a febrero, te la puedo facilitar solo tendras que bajarla de mi página, no sé si sea la misma que está en descargas de Fiscalia

Ya que estamos con el tema, esta es la macro que uso, no requiere usar una cuarta celda, solo se posiciona en la columna que tiene el nombre y lo reemplazará e insertará las columnas de [i:f95b4b0423]Ap.Paterno, Ap.Materno y Nombre(s)[/i:f95b4b0423] [code:1:f95b4b0423]Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 02/10/2004 ByPaco ' Posicionarse en la primera celda a separar If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert Cells(ActiveCell.Row, ActiveCell.Column + 3).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)) Selection.EntireColumn.Delete ActiveCell.Offset(-1, -3).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Paterno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Materno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Nombre(s)" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub[/code:1:f95b4b0423]

Debes tener cargado el complemento, verificalo en la lista del menu Herramientas submenu agregados, si no está le das al boton de buscar y lo llamas de donde esté.

Mejor usar la opción copiar-pegar, tampoco he podido desarrollar la fórmula

Este mismo esta en el foro de Software

Para usar el IDSE primero se instala el [url=http://java.sun.com/products/archive/j2se/1.4.1/]Java 1.4.1[/url], luego un [url=http://idse.imss.gob.mx/software/jre/setup.exe]programa del IMSS[/url], pero este último es algo grande (19.1 MB)

[quote:8a989638d3="gerardoba"]Este es el mensaje que me da en el Outlook Express al qurer leer los correos del MNS [b:8a989638d3]No se puede sondear los mensajes nuevos en el servidor HTTP. Cuenta: 'Hotmail', Servidor: 'http://services.msn.com/svcs/hotmail/httpmail.asp', Protocolo: HTTPMail, Respuesta del servidor: 'Access to Hotmail via Outlook and Outlook Express now requires a subscription. Please sign up at http://upgrade.msn.com', Puerto: 0, Seguridad (SSL): No, Número de error: 0x80004005[/b:8a989638d3] Que estare haciendo mal? Gracias y saludos[/quote:8a989638d3] El URL para correos @msn.com es: http://oe.msn.msnmail.hotmail.com/cgi-bin/hmdata El URL para correos @hotmail.com es: http://services.msn.com/svcs/hotmail/httpmail.asp haz [url=http://office.microsoft.com/es-mx/assistance/HA011124803082.aspx]click aquí[/url] para ver la refencia del error si tu correo es hotmail

± se usan con nombre de campos en lugar de celdas, por ejemplo si tienes campos de Acumulado, Iva y Total, la operación en el campo de total sería acumulado+Iva.

Autor	Mensaje
Tópico: CLAVE DE LA CALCULADORA FISCAL
ByPaco Mensajes: 27	Foro: Excel Enviado: Julio 07, 2005 Asunto: Re: CLAVE DE LA CALCULADORA FISCAL
ByPaco Mensajes: 27	Aqui la tienen: [code:1:66ff0bbfc0]Sub Desprotege() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "la hoja fue desprotegida" Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub [/code:1:66ff0bbfc0]
Tópico: Suma automatica en excel
ByPaco Mensajes: 52	Foro: Excel Enviado: Julio 07, 2005 Asunto: Re: Suma automatica en excel
ByPaco Mensajes: 52	[quote:1906925b3e="ROSAISELASANCHEZ"]:) No es para presumir pero dejenme decirles, que yo nunca tome un curso de excel, simplemente la necesidad me llevó a esforsarme para aprender excel y word yo solamente soy una simple contadora privada y mi trabajo me obligo a leer y practicar. En mi trabajo a escondida imprimia los manuales de excel y word y por las noches los leia y los ponia en practica en mi trabajo, lo mismo hice con nomipaq y contpaq y ahorita le puedo decir que los dómino, tal vez no al 100% pero al menos no estoy en blanco y lo unico que les puedo decir que necesidad te obliga a estudiar y aprender, no hay edad para no estuidiar o aprender. Y eso de que por qu no hay tiempo es un pretexto que nosotros como seres humanos damos a cualquier cosa cuando no queremos poner de nuestra parte por aprender y dar más de lo que tenemos o de lo que queremos. P.D. Todos los dias aprendemos algo nuevo siempre y cuando lo buscamos y queremos. Esto es un incentivo para nunca rendirnos ante las adversidades del mundo actual.[/quote:1906925b3e] tu eres de las mias, con todo respeto: [img:1906925b3e]http://smileys.smileycentral.com/cat/36/36_3_11.gif[/img:1906925b3e]
Tópico: Carga Batch de Clientes y Proveedores
ByPaco Mensajes: 3	Foro: Excel Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 3	Yo tengo la versión que corrio mucho en el periodo anterior a febrero, te la puedo facilitar solo tendras que bajarla de mi página, no sé si sea la misma que está en descargas de Fiscalia
Tópico: DIVIDIR NOMBRES COMPLETOS
ByPaco Mensajes: 17	Foro: Excel Enviado: Julio 07, 2005 Asunto: Re: DIVIDIR NOMBRES COMPLETOS
ByPaco Mensajes: 17	Ya que estamos con el tema, esta es la macro que uso, no requiere usar una cuarta celda, solo se posiciona en la columna que tiene el nombre y lo reemplazará e insertará las columnas de [i:f95b4b0423]Ap.Paterno, Ap.Materno y Nombre(s)[/i:f95b4b0423] [code:1:f95b4b0423]Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 02/10/2004 ByPaco ' Posicionarse en la primera celda a separar If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert Cells(ActiveCell.Row, ActiveCell.Column + 3).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)) Selection.EntireColumn.Delete ActiveCell.Offset(-1, -3).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Paterno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Materno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Nombre(s)" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub[/code:1:f95b4b0423]
Tópico: FORMULA O ARCHIVO PARA CAMBIAR NUMEROS POR LETRAS
ByPaco Mensajes: 28	Foro: Excel Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 28	Debes tener cargado el complemento, verificalo en la lista del menu Herramientas submenu agregados, si no está le das al boton de buscar y lo llamas de donde esté.
Tópico: CAMBIO DE RENGLONES POR COLUMNAS.
ByPaco Mensajes: 12	Foro: Excel Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 12	Mejor usar la opción copiar-pegar, tampoco he podido desarrollar la fórmula
Tópico: FORMULAS EN ACCES
ByPaco Mensajes: 1	Foro: Excel Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 1	Este mismo esta en el foro de Software
Tópico: Dónde puedo descargar JAVA version 1.4.1?????
ByPaco Mensajes: 4	Foro: Software Enviado: Julio 07, 2005 Asunto: Re: Dónde puedo descargar JAVA version 1.4.1?????
ByPaco Mensajes: 4	Para usar el IDSE primero se instala el [url=http://java.sun.com/products/archive/j2se/1.4.1/]Java 1.4.1[/url], luego un [url=http://idse.imss.gob.mx/software/jre/setup.exe]programa del IMSS[/url], pero este último es algo grande (19.1 MB)
Tópico: ARCHIVAR CORREO ELECTRONICO
ByPaco Mensajes: 14	Foro: Software Enviado: Julio 07, 2005 Asunto: Re: ARCHIVAR CORREO ELECTRONICO
ByPaco Mensajes: 14	[quote:8a989638d3="gerardoba"]Este es el mensaje que me da en el Outlook Express al qurer leer los correos del MNS [b:8a989638d3]No se puede sondear los mensajes nuevos en el servidor HTTP. Cuenta: 'Hotmail', Servidor: 'http://services.msn.com/svcs/hotmail/httpmail.asp', Protocolo: HTTPMail, Respuesta del servidor: 'Access to Hotmail via Outlook and Outlook Express now requires a subscription. Please sign up at http://upgrade.msn.com', Puerto: 0, Seguridad (SSL): No, Número de error: 0x80004005[/b:8a989638d3] Que estare haciendo mal? Gracias y saludos[/quote:8a989638d3] El URL para correos @msn.com es: http://oe.msn.msnmail.hotmail.com/cgi-bin/hmdata El URL para correos @hotmail.com es: http://services.msn.com/svcs/hotmail/httpmail.asp haz [url=http://office.microsoft.com/es-mx/assistance/HA011124803082.aspx]click aquí[/url] para ver la refencia del error si tu correo es hotmail
Tópico: USO DE MICROSOFT ACCES, ¿ALGUIEN SABE ALGO DEL TEMA?
ByPaco Mensajes: 14	Foro: Software Enviado: Julio 07, 2005 Asunto: Re: USO DE MICROSOFT ACCES, ¿ALGUIEN SABE ALGO DEL TEMA?
ByPaco Mensajes: 14	± se usan con nombre de campos en lugar de celdas, por ejemplo si tienes campos de Acumulado, Iva y Total, la operación en el campo de total sería acumulado+Iva.

Actualidades

Secciones

Herramientas

Especiales

Legislación

Herramientas

Dólar EUA

25/ABR/24

$16.9995

DOF 24/abr/24

INPC

MAR/24

134.065

Inflación +1.28%

Vista Rápida

1.47%

0.98%

8.128018

312.332

Accesos Directos

Tesis

Base de datos actualizada a:

Descargas

Comunidad

¿Qué es comunidad?

Declaración anual 2023 de Personas Físicas

Declaración anual 2023 de Personas Morales

Factura Electrónica CFDI 4.0

¿Nuevo en Fiscalia?

¿Eres miembro Fiscalia?

Contenido

Enlaces

Contáctanos

Sitios del Grupo