Subforo de Ideas y aportes

publicado el 16 de marzo8 años

Hola, se que el Subforo de ideas y aportes quedo deshabilitado para dar lugar al de "Comparte tus aportes" (al que por cierto no puedo ingresar ya que me indica que la pagina no existe), pero debo decir que el cambio no le ha sentado bien, desde que realizaron el cambio no hay tanta participación de los usuarios para publicar sus aportes, la navegación por el es no es cómoda a pesar de que tiene ideas interesantes como la vista por categorías, y las visitas a los temas y la cantidad de descargas de los archivos es increíblemente inferior al del antiguo Subforo.

Es una lastima porque aparte de apoyar a los usuarios dando solución a sus problemas, también es interesante compartir conocimientos o curiosidades, pero como que desanima un poco ver las pocas visitas y descargas que tienen ahora.

Lo que digo es solo mi opinión personal pero creo que deberían trabajar para mejorar un poco este tema ya que lo veo un poco abandonado.

Salu2.

publicado el 16 de marzo8 años

El foro de ideas y aportes debería volver a su estado original, o como mínimo darle un lugar preferente después de los foros de Excel General y Excel macros.

Con el nuevo formato solo he hecho un par de aportes, porqué en realidad, no me motiva.

publicado el 23 de marzo8 años

holas..

En 16/3/2017 at 13:47 , Macro Antonio dijo:

Con el nuevo formato solo he hecho un par de aportes, porqué en realidad, no me motiva.

:unsure:

@sergio

Sería posible colocar en el formato, unos cuantos Whiskies??, toma en cuenta que algunos deben estar muy bien motivados...

En 16/3/2017 at 11:48 , Riddle dijo:

y aportes quedo deshabilitado para dar lugar al de "Comparte tus aportes" (al que por cierto no puedo ingresar ya que me indica que la pagina no existe),

yo tampoco puedo... :blink:

En 16/3/2017 at 13:47 , Macro Antonio dijo:

El foro de ideas y aportes debería volver a su estado original, o como mínimo darle un lugar preferente después de los foros de Excel General y Excel macros.

** Es una buena idea, que opinan:

@Gerson Pineda, @johnmpl, @bfelix, @Enigma25

saludos,

publicado el 23 de marzo8 años

Estoy de acuerdo con @Riddle y @Macro Antonio

Si hay mas opiniones a favor y mas me gusta para @Riddle haremos los cambios!

Eso si que Silvia ponga el Whiskey (Ron, Cerveza y la botana)

8 años8 años Gerson Pineda featured this tema

publicado el 23 de marzo8 años

Estoy de acuerdo con @Riddle y si, seria excelente que vuelva el foro de ideas y aportes.

publicado el 23 de marzo8 años

Hace 1 hora, Gerson Pineda dijo:

Eso si que Silvia ponga el Whiskey (Ron, Cerveza y la botana)

<_< <_< :angry: :angry:

ahí tá

publicado el 24 de marzo8 años

Hace 7 horas, Silvia dijo:

holas..

@sergio

Sería posible colocar en el formato, unos cuantos Whiskies??, toma en cuenta que algunos deben estar muy bien motivados...

yo tampoco puedo...

** Es una buena idea, que opinan:

@Gerson Pineda, @johnmpl, @bfelix, @Enigma25

saludos,

Siiiii Wiskys

publicado el 24 de marzo8 años

A mí me parecen bien los cambios que sugerís (exceptos los whiskys, que de servicio no bebo).

@Riddle, por favor, contacta conmigo para ver el problema de acceso que tienes.

@Macro Antonio, lo colocaré en la parte de arriba para darle más visibilidad.

¿Alguna idea más para mejorar la visibilidad de los aportes?

Gracias.

publicado el 24 de marzo8 años

Hace 4 horas, sergio dijo:

(exceptos los whiskys, que de servicio no bebo).

Gerson está pidiendo cerveza y ron.. :wacko:

Hace 4 horas, sergio dijo:

por favor, contacta conmigo para ver el problema de acceso que tienes.

Yo tampoco puedo entrar al sub foro.. de Comparte tus Aportes..

publicado el 27 de marzo8 años

En 24/3/2017 at 8:37 , Silvia dijo:

Gerson está pidiendo cerveza y ron..

:rolleyes:

publicado el 27 de marzo8 años

En 24/3/2017 at 11:07 , sergio dijo:

A mí me parecen bien los cambios que sugerís (exceptos los whiskys, que de servicio no bebo).

@Riddle, por favor, contacta conmigo para ver el problema de acceso que tienes.

@Macro Antonio, lo colocaré en la parte de arriba para darle más visibilidad.

¿Alguna idea más para mejorar la visibilidad de los aportes?

Gracias.

Que tal si lo dejas igual que el resto de foros, es decir, una lista ordenada de fecha reciente a fecha antigua y que aparezca a la derecha la última acción del foro.

publicado el 27 de marzo8 años

Autor

Hace 3 horas, Macro Antonio dijo:

Que tal si lo dejas igual que el resto de foros, es decir, una lista ordenada de fecha reciente a fecha antigua y que aparezca a la derecha la última acción del foro.

De hecho eso es lo que le falta al nuevo formato, poder ver los aportes en una vista de lista e incluso en la lista de foros poder ver el ultimo aporte agregado como lo muestran los demás foros:

Saludos.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Archivos
100 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 2

Crear un loop para emitir recibos

Hola! como estás? ante todo muchas gracias por tu aporte.
Te comento, hice la prueba pero tengo dos cuestiones. La macro original normalmente guarda una copia del recibo emitido en una carpeta de la pc y tambien envía una copia por correo.

Ahora bien, la macro funciona porque los recibos se me han guardado en la carpeta de la pc, pero uno de los problemas que tengo es que ahora no los envía por correo. Por otro lado, faltaría hacer que la nueva macro vaya reemplazando el contenido de la celda P17 con el codigo del inmueble que está imprimiendo de la lista, ya que, de lo contrario, siempre se imprime el mismo recibo.
Agradezco mucho si me podés ayudar a solucionar esas dos cuestiones

Por Corvette, · publicado el viernes a las 21:073 días
Crear un loop para emitir recibos

Prueba y comenta
ALQUILERES L - para POL.xlsm

Por JSDJSD, · publicado el viernes a las 09:054 días
Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Muchas gracias JSDJSD, por la respuesta y por tomarse el tiempo de colaborarme.
Con ello doy por cerrado el tema
Un cordial saludo,
Dorge

Por dorgelis, · publicado el jueves a las 20:324 días
Crear un loop para emitir recibos

Buenas tardes! Como están?
Les comento, tengo una planilla que utilizo para emitir recibos de pago de las propiedades de las que administro el alquiler en mi inmobiliaria. Actualmente la planilla funciona bien, pero cuando tengo que imprimir los recibos, tengo que ir haciéndolos de a uno y me resultaría más practico escribir una lista de las propiedades de las que ya estoy en condiciones de realizar los recibos y que la macro se vaya repitiendo hasta que haya emitido todos los recibos (ya que la macro es bastante lenta y tengo que esperar unos 10 segundos entre recibo y recibo y son como 120 los que tengo que hacer)
Actualmente el recibo se completa cambiando el valor de una celda (que es el que identifica a cada inmueble), por lo que entiendo que lo unico que tendría que hacer el loop, es imprimir el primer recibo, copiar de una lista el número de identificacion de la siguiente propiedad de la lista, copiarlo en la celda que completa el recibo, volver a ejecutar la macro para generar el siguiente recibo y así sucesivamente hasta finalizar toda la lista. Eventualmente estaría bueno que aparezca un aviso cuando ya haya finalizado de emitir todos los recibos.
Adjunto el archivo en donde dejé indicado donde pondría la lista de codigos de propiedad a emitir, el boton que ejecuta las macros y cual es la celda que la macro iría modificando para completar los recibos con los datos de cada uno de los inmuebles a imprimir
La hojas se desbloquean con la clave 4324 o con el boton rojo que hay en las mismas (cada vez que se ejecuta la macro se vuelve a bloquear)
Desde ya les agradezco la ayuda!
Anexo:
La macro individual actual es la siguiente (en la planilla se ejecuta con un boton amarillo que está en la hoja consultas).

Sub Imagen13_Haga_clic_en()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R34")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Activate
.Chart.Paste
.Chart.Export "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & Format(Range("q20"), "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("K19") & ".JPG"
.Delete
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ (desactivé esto para que no imprima en papel)
'IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "nqn.negocios@gmail.com"
Clave_correo_origen = "wkfhaapcnjljbwju"
correo_destino = Range("ak27").Value
Asunto = Range("ak28")
Mensaje = Range("ak29")
'correo_copia = "envioacorreocopia@gmail.com"
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = Asunto
.TextBody = Mensaje
.Configuration.Fields.Update

If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
.AddAttachment (Range("ak30").Value)

On Error Resume Next
.Send
End With
End Sub
Sub powerbuttonINQ()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R33")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Activate
.Chart.Paste
.Chart.Export "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & Format(Range("q20"), "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("J17") & ".JPG"
.Delete
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
'IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "nqn.negocios@gmail.com"
Clave_correo_origen = "wkfhaapcnjljbwju"
correo_destino = Range("ak27").Value
Asunto = Range("ak28")
Mensaje = Range("ak29")
'correo_copia = "envioacorreocopia@gmail.com"
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = Asunto
.TextBody = Mensaje
.Configuration.Fields.Update

If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
.AddAttachment (Range("ak30").Value)

On Error Resume Next
.Send
End With
End Sub

ALQUILERES L - para POL.xlsm

Por Corvette, · publicado el jueves a las 18:474 días
Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Prueba y comenta
CODIGO DE CELDA NO TRASLADA EL VALOR DESEADO EN ARCHIVO AYUDA EXCEL.xlsm

Por JSDJSD, · publicado el jueves a las 17:474 días

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Subforo de Ideas y aportes

Featured Replies

Archivado

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Crear un loop para emitir recibos

Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)