Jump to content

A.Maurizio

Members
  • Content Count

    152
  • Joined

  • Last visited

Everything posted by A.Maurizio

  1. Hola Leopoldo Blancas Muchas gracias por tu ayuda y hermosa. Funciona como lo quise hacer desde el principio. Ahora lo estudiaré para siempre; Con la esperanza de averiguar dónde estaba mal. Gracias de nuevo por todo y que tenga un buen día y a todos ustedes en el Foro. Saludos desde A. Maurizio ------------------------------------------------------------ Hi Leopoldo Blancas Thank you so much for your help and Beautiful. It works Just like I wanted to do from the beginning. Ahora I will study it for good; Hoping to figure out where I was wrong. Thanks again for everything and a nice day and you and all of you from the Forum Greetings from A. Maurizio
  2. Ciao a tutti, mi chiamo Maurizio e il mio problema è questo: Nel foglio Excel ho inserito un pulsante che ricorda la funzione di inserire un numero progressivo in Column (A); A condizione che nella colonna (B) ci siano alcuni dati; E finora tutto va bene. Ora, quello che proverei a fare sarebbe avere un codice che possa valutare se l'ultimo dato inserito nella colonna (B) è uguale a "Zero" o "Uno". Lascia che ti spieghi meglio: 1) Ho detto che se scrivo qualsiasi dato (numerico o alfanumerico) che sia; Nella colonna (b) nella colonna (A) viene inserito un numero progressivo! 2) Tuttavia, al contrario, cancello gli ultimi dati immessi nella colonna (B) del numero che appare nella colonna (A) continua lì al suo posto; Anche se mi piacerebbe che scomparisse; ("") Questo è tutto. Sembra una cosa facile da risolvere, ma non posso farlo. Grazie per tutto l'aiuto che vuoi darmi su di esso; Saluti da A. Maurizio grazie ################################################## ######## Ciao a tutti, mi chiamo Maurizio e il mio problema è questo: Sul foglio Excel ho inserito un pulsante che richiama la funzione di inserire un numero progressivo nella Colonna (A); A condizione che nella colonna (B) ci siano dati; E finora tutto è ok ora quello che vorrei cercare di fare: Sarebbe avere un codice, che può valutare se gli ultimi dati inseriti nella colonna (B) è uguale a "zero" o "One". Spiegherò: 1) Ho detto che se scrivo qualsiasi dato (numerico o alfanumerico) cioè; Nella colonna (B) nella colonna (A) viene inserito un numero progressivo! 2) Tuttavia, al contrario, ho eliminare gli ultimi dati inseriti nella colonna (B) dal numero appare nella Quella colonna (A) continua a non rimanere nel suo posto; Mentre vorrei che scomparisse; ("") questo è tutto. Sembra una cosa facile da risolvere Ma non posso farlo. Grazie per tutto l'aiuto che vuoi darmi su di esso; Saluti da A. Maurizio Grazie Promemoria e Scadenze (1).xlsm
  3. Ciao del Ritardo nella Risposta Haplox ; Ma sono stato un pochino preso con il mio lavoro. Ho visto che avete vinto con la liga Ma dal'tronde il Barcellona e da sempre la mia squadra del cuore ; oltre al mio Torino (Granata). Per il resto non dimentichiamo che: Con il vecchio Torino morto in un disastro Aereo molti anni fa. Al Barcellona dell'epoca , Vincemmo noi per ben 3 reti a 1. Ma questa e tutta un altra storia. Ciao Simpaticone con affetto Maurizio
  4. Hola Haplox como eres! Pasa bien estos días festivos. Por cierto: como me felicitas, no hice nada diferente de lo que sugeriste (Antoni & C) que no recuerdo el nombre. De todos modos gracias por el Pensamiento. Hola y gracias de nuevo a todos, un sincero saludo de Maurizio. ################### Hi Haplox as you are! Spend these festive days well. By the way: Because you compliment me, I didn't do anything different from what you suggested (Antoni & C) that I don't remember the name. Anyway thanks for the Thought. Hello and thanks again to all of you, sincere greetings from Maurizio
  5. Hola Antoni & Haplox Quizás no me expliqué bien: su sugerencia funciona muy bien, y solo he hecho los cambios porque antes de guardar todo, podía ver el nombre del archivo guardado. Pero esto es un juego de niños; Y tu archivo funciona muy bien. Pero al contrario: con mi programa, le envié que no pude obtener el nombre del archivo que me gustaría guardar con el menú Guardar como nombre de Windows clásico ¡Todo aquí! Pero ahora no importa, porque gracias a ti he resuelto todo, usando tu procedimiento ¡Todo aquí! Gracias de nuevo ####################### Hi Antoni & Haplox Perhaps I didn't explain myself well: Your suggestion works great, and I have only made the changes because before saving everything I could see the name of the saved file. But this is child's play; And your file works great. But on the contrary: And with my program I sent you that I was not able to get the name of the file that I would like to save with the Classic Windows Save As Name Menu Everything here! But now it doesn't matter, because thanks to you I have solved everything, using your procedure Everything here! Thanks again
  6. Hola Haplox, ¿cómo estás? Desafortunadamente, su función, que me dio, no funciona dentro de mi programa; Como siempre, debo haber creado demasiadas variables. Pero traté de volver a llamar usando solo su método y haciendo algunos cambios al caso Como ejemplo: (En error GoTo termina Dim nom As String, rut As String nom = Sheet1.Range ("A2"). Valor rut = "C: Usuarios ThisWorkbook.SaveAs (rut & nom) acabado: MsgBox "File Saving" & nom & "Successfully", vbInformation, "Attention" Sheet1.Range ("A2"). Valor = "") Por lo tanto funciona maravillosamente todo Gracias y disculpa si te molesté tan poco. Saludos sinceros de Maurizio. ################################## Hi Haplox how are you! Unfortunately, your function, which you gave me does not work within my program; As always, I must have created too many variables. But I tried to call back using only your method and making some changes to the case For example : (On Error GoTo finish Dim nom As String, rut As String nom = Sheet1.Range ("A2"). Value rut = "C: Users ThisWorkbook.SaveAs (rut & nom) finish: MsgBox "File Saving" & nom & "Successfully", vbInformation, "Attention" Sheet1.Range ("A2"). Value = "") Therefore it works wonderfully Everything Thank you and sorry if I disturbed you so little. Sincere greetings from Maurizio
  7. Hola a todos, mi nombre es Maurizio y mi problema es este: Creé una función para guardar el documento de Excel usando (Guardar como) Ahora usado como diseñado, ¡trabajo maravillosamente! Pero ahora me gustaría que el título del documento se guardara para que se tome lo que puse en la celda (A2). Le garantizo que he intentado en todo momento hacer este cambio sin tener éxito; Podrías decirme por qué. Y como resolver esta Operación Gracias. Saludos sinceros de A. Maurizio. ############################################### Hi everyone, my name is Maurizio and my problem is this: I created a function to save the excel document using the (Save As) Now used as designed, I work wonderfully! But now I would like the title of the document to be saved to be taken what I put in the cell (A2) I guarantee that I have tried in every way to make this change without ever succeeding; You could tell me why. And how to resolve this Operation Thank you Sincere greetings from A. Maurizio Salva Con Nome - Dichiarato.xlsm
  8. Hola ikanni escucha: Noté que en tu listado funciona bien; Está bien. Si trato de cambiar el día de la semana escrito en inglés con el idioma italiano, no me da nada; debido. (P.S) Déjame explicarte mejor: En el programa que su colega "johnmpl" me brindó amablemente, fue suficiente para cambiar la función (dddd) en (gggg) Para obtener los días de la semana escritos como (lunes, martes), etc ...! Y no con (lunes; martes) etc ...! Gracias espero sus instrucciones ############################## Hi ikanni listen: I noticed that in your listing it does work well indeed; Very well. If I try to change the day of the week written in English with the Italian language it gives me nothing; why. (P.S) Let me explain better: In the Program that your colleague "johnmpl" kindly gave me, it was enough to change the Function (dddd) in (gggg) To get the days of the week written as (Monday; Tuesday) etc ...! And not with (Monday; Tuesday) etc ...! Thank you I await your instructions
  9. Hola johnmpl Muchas gracias a ti tambiénSu programa, aunque mucho más pequeño que todos los demás, es extremadamente efectivo. Gracias.Saludos desde A. Maurizio ############################################### Hi johnmpl Many thanks to you tooYour program, although much smaller than everyone else, is extremely effective. Thank you.Greetings from A. Maurizio
  10. Hola, Antoni. Ya estaba feliz por lo que le había ofrecido a tu colega (ikanni). Pero esta vez tengo que decir que te has superado. Usted también es fantástico. Gracias Infinito y felices fiestas a todos. Saludos desde A. Maurizio ################################ Hi Antoni I was already happy for what I had offered your colleague (ikanni) But this time I have to say that you have exceeded yourself You too are fantastic Thanks Infinite and happy holidays to all Greetings from A. Maurizio
  11. Hola, ikanni, en primer lugar, gracias por su programa, muy agradable, y fue justo lo que estaba tratando de hacer por mí mismo; Pero que sin tu ayuda nunca hubiera llegado. Habiendo dicho esto, debería explicarme todo amablemente: porque solo lo entendí en parte. Gracias. Saludos sinceros de feliz Pascua para ti y la familia. Y sobre todo a todo el staff de este Foro. (P.S) sigue adelante con Calma No tengo prisa gracias ################################################ Hi ikanni First of all Thanks for your program and very nice and it was just what I was trying to do myself; But that without your help I would never have arrived. Having said this, you should kindly explain everything to me: Because I understood it only in part. Thank you Sincere Greetings of Happy Easter to you and the Family And above all to all the staff of this Forum. (P.S) go ahead with Calma I am not in a hurry thank you
  12. Hola mi nombre es Maurizio y mi nuevo problema y este: En una hoja de Excel en la columna (A) necesito escribir las fechas en su totalidad. Por ejemplo, (01/04/2019) Ahora, me gustaría saber si existe la posibilidad de informar en la columna (B) su día de la semana sin que tenga que arrastrarlo a mano durante toda la columna. Tengo que volver a escribirlo manualmente utilizando el VBA. En la práctica, me gustaría que sucediera un poco como esta macro que creé para que usted lo ayude a comprender mejor todo. Gracias Saludos de A.Maurizio. ###################################### Hello my name is Maurizio and my new problem and this: On an Excel sheet in column (A) I need to write dates in full. Such as (01/04/2019) Now what I would like to know if there was the possibility of reporting in the column (B) his day of the Week without me having to drag it by hand for the whole column I have to manually retype it using the VBA. In practice I would like it to happen a bit like this macro that I created for you to help you better understand everything. Thanks Greetings from A.Maurizio Evidenzia_Sabati_e_Domeniche.xlsm
  13. Gracias Antoni de la respuesta. Y lo menos que podía hacer para agradecerte por todas las veces que me ayudaste en mis peticiones, un poco de Strampalate. Tengo el absurdo de que son, pero me ha servido mucho Gracias ################# Thanks Antoni of the reply. And the least I could do to say thank you for all the times that you helped me in my requests a little Strampalate I have absurd that they are but has served me a lot Thanks
  14. Hola Antoni, lo siento mucho, lo recogí por error Aquí está el por qué no se pudo descargar todo aquí. Pero ahora recupera y puedes descargarlo con este enlace: https://app.box.com/s/9ctr4sg79pwu1cmmn6ynwba96tw9z18c Gracias eres siempre muy amable Saludos sinceros de Maurizio. #################################################### Hi Antoni, I'm so sorry I picked it up by mistake Here's the Why you couldn't download it all here. But now the Restore and you can download it with this link: Thank you You are always very kind Sincere greetings from Maurizio
  15. Hola jose lopez contreras Realmente no entiendo lo que Google me traduce, Pero si no te he entendido mal, me estás pidiendo que elimine el archivo que te ofrecí como regalo por ayudarme en la realización. ¿Es así? Espero sus aclaraciones al respecto. Gracias. ##################################### Hi jose lopez contreras I don't really understand what Google translates to me, But if I have not misunderstood you you are asking me to delete the file I offered you as a gift for helping me in the realization! Is it so? I await your clarifications on the matter. Thank you
  16. Hola a todos, mi nombre es Maurizio No saber cómo hacerte un homenaje a tu habilidad y siempre estar dispuesto a ayudarme a llevar a cabo mis proyectos. Deseo agradecerte infinitamente y te ofrezco todo mi último trabajo. Este es el enlace para descargar todo Hola y gracias de nuevo. Saludos sinceros a Tutti de A. Maurizio. ######################################################## Hi everyone, my name is Maurizio Not Knowing how to make you a tribute to your skill and always willingness to help me carry out my projects. I wish to tell you infinitely thank you and I offer you all my latest work This is the link to download everything Hello and Thanks again Sincere greetings to Tutti from A. Maurizio https://app.box.com/s/9ctr4sg79pwu1cmmn6ynwba96tw9z18c Usted acepta cualquier comentario de su agradecimiento
  17. Hola a todos, mi nombre es A.Maurizio Y mi problema es este: En una hoja de Excel tengo 6 (Formas) con el oro interno de las imágenes de Misceláneos. Entonces encontré este listado en Internet: VBA: Opción explícita Opción explícita Sub Export_Images () Dim MyChart como cadena, MyPicture como cadena, oShape como variante Dim PicWidth As Long, PicHeight As Long Dim strImageName Dim oDia Dim oChartArea Application.ScreenUpdating = False En error GoTo finaliza MyPicture = Selection.Name Con seleccion PicHeight = .ShapeRange.Height PicWidth = .ShapeRange.Width Terminar con Charts.Add ActiveChart.Location WHERE: = xlLocationAsObject, Name: = "Sheet1" Selection.Border.LineStyle = 0 MyChart = Selection.Name & "" & Split (ActiveChart.Name, "") (2) Con ActiveSheet Con .Shapes (MyChart) .Width = PicWidth .Height = PicHeight .copy Terminar con .Shapes (MyPicture) .copy Con ActiveChart ' .ChartArea.Select .Paste Terminar con .ChartObjects (1) .Chart.Export Nombre de archivo: = ThisWorkbook.Path & "Objects_Images_Salves MyPic1.jpg", FilterName: = "jpg" .ChartObjects (2) .Chart.Export Nombre de archivo: = ThisWorkbook.Path & "Objects_Images_Salves MyPic2.jpg", FilterName: = "jpg" .ChartObjects (3) .Chart.Export Nombre de archivo: = ThisWorkbook.Path & "Objects_Images_Salves MyPic3.jpg", FilterName: = "jpg" .ChartObjects (4) .Chart.Export Nombre de archivo: = ThisWorkbook.Path & "Objects_Images_Salves MyPic4.jpg", FilterName: = "jpg" .ChartObjects (5) .Chart.Export Nombre de archivo: = ThisWorkbook.Path & "Objects_Images_Salves MyPic5.jpg", FilterName: = "jpg" .Shapes (MyChart) .cut Terminar con Application.ScreenUpdating = True Subir de salida acabado: MsgBox "Debes seleccionar una imagen" End Sub Ahora hasta ahora, después de mi cambio personal; Parecía funcionar bien. Excepto por un hecho: 1) Para exportar la imagen deseada; solo se debe seleccionar una imagen a la vez ¡Y no es bueno! 2) Además, en la Hoja de trabajo crea una copia de la imagen exportada. E incluso aquí no es bueno. Así que mi pregunta es esta: No habría manera de exportar todas las imágenes al libro de trabajo cuando se presiona el botón; Sin tener que seleccionarlos siempre manualmente cada vez. Entonces, tal vez usando un (OptionButton) me gustaría que pudieras decidir si las imágenes que transfiero a mi carpeta de llamadas (Objects_Images_Salted) Estaban estables lo eliminé todo. Graie por toda la ayuda que quieras darme al respecto. ############################################################# Hi everyone, my name is A.Maurizio And my problem is this: On an Excel sheet I have 6 (Shapes) with the internal gold of the Miscellaneous images. Then I found this listing on the Internet: VBA: Now So far, after my Personal Change; seemed to work well. Except for one fact: 1) To Export the desired Image; only one image must be selected at a time And it's not good! 2) In addition on the Worksheet creates a copy of the exported image. And even here it's not good. So my question is this: There would be no way for all images to be exported to the workbook when the button is pressed; Without having to always select them manually every time. Then maybe using a (OptionButton) I would like you to be able to decide if the images I transfer to my call folder (Objects_Images_Salted) Were Stable I Eliminated Everything. Graie for all the help you want to give me about it Esporta_Immagini.zip
  18. Hola, Antoni. Estaba a punto de volverme loco con este último proyecto mío, ya que lo intenté y lo intenté de nuevo sin sacar una araña del agujero. Entonces vienes guapo guapo y resuelve el problema! ¿Qué decir que eres fantástico? Era justo lo que estaba tratando de hacer, pero sin obtener ningún resultado. Seguramente este proyecto más que cualquier otro; Lo guardaré cuidadosamente en algún lugar de mi computadora ya que es muy hermoso Eres maravilloso, pero aún más; Hola y hasta pronto ################################################## Hi Antoni I was about to go crazy with this last project of mine as I tried and tried again without ever getting a Spider out of the hole. Then you come handsome Handsome and solve the problem! What to say you are Fantastico? It was just what I was trying to do but without getting any results. Surely this project more than any other; I will keep it carefully somewhere on my computer as it is very beautiful, thank you very much You are wonderful but you even more so; Hello and see you soon
  19. Hola a todos. Mi nombre es Maurizio y mi nuevo problema con la VBA es este: Yo en una hoja de excel gracias a su ayuda Anterior que es esto: Dim rngTarget As Range Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) With rngTarget.Parent .Pictures.Insert strShpUrl .Shapes(.Shapes.Count).Left = rngTarget.Left .Shapes(.Shapes.Count).Top = rngTarget.Top End With End Sub Private Sub Cmd_Recupera_Immagini_Click() 'On Error Resume Next For I = 1 To 1 Call GetShapeFromWeb(Foglio1.Range("A10").Value, Foglio1.Range("B20")) Call GetShapeFromWeb(Foglio1.Range("A11").Value, Foglio1.Range("C20")) Call GetShapeFromWeb(Foglio1.Range("A12").Value, Foglio1.Range("D20")) Call GetShapeFromWeb(Foglio1.Range("A13").Value, Foglio1.Range("E20")) Call GetShapeFromWeb(Foglio1.Range("A14").Value, Foglio1.Range("F20")) 'Call GetShapeFromWeb(Foglio1.Range("A15").Value, UserForm1.Image6.Picture) Next I End Sub Me echaste una mano para extraer imágenes tomadas de un enlace y hasta ahora todo está bien; En que funciona muy bien Pero ahora mi nuevo problema requiere que quiera insertar estas imágenes en una forma de usuario que a su vez contiene cinco fotos mas Créeme, pensé que era extremadamente simple hacer cosas como esta; Pero mientras trataba de investigar en internet no encontré nada. Por aquí te pregunto que existe la posibilidad de crear esta cosa. Es decir: copie las imágenes de la hoja de lava y transfiéralas al formulario de usuario. O incluso simplemente transferirlos al directorio (C: Muchas gracias por toda la ayuda que podrán brindarme ahora mismo. Saludos desde A. Maurizio ################################################################################ Hello everyone My name is Maurizio and my new problem with the VBA is this: I on an excel sheet thanks to your help Previous that is this: Dim rngTarget As Range Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) With rngTarget.Parent .Pictures.Insert strShpUrl .Shapes(.Shapes.Count).Left = rngTarget.Left .Shapes(.Shapes.Count).Top = rngTarget.Top End With End Sub Private Sub Cmd_Recupera_Immagini_Click() 'On Error Resume Next For I = 1 To 1 Call GetShapeFromWeb(Foglio1.Range("A10").Value, Foglio1.Range("B20")) Call GetShapeFromWeb(Foglio1.Range("A11").Value, Foglio1.Range("C20")) Call GetShapeFromWeb(Foglio1.Range("A12").Value, Foglio1.Range("D20")) Call GetShapeFromWeb(Foglio1.Range("A13").Value, Foglio1.Range("E20")) Call GetShapeFromWeb(Foglio1.Range("A14").Value, Foglio1.Range("F20")) 'Call GetShapeFromWeb(Foglio1.Range("A15").Value, UserForm1.Image6.Picture) Next I End Sub You gave me a hand to extract images taken from a Link and so far everything is ok; In that it works great. But now my new problem requires me to want to insert these images into a userform that in turn contains five more pictures Believe me I thought it was extremely simple to do things like this; But while trying to do research on the internet I found nothing. For here I ask you there is a possibility to create this thing. That is: Copy the images from the lava sheet and transfer them to the userform. Or even just transfer them to the directory (C: Thank you so much for all the help you will be able to give me right now Greetings from A. Maurizio Recupera Immagine Da Link Su Userform (Salvato automaticamente).xlsm
  20. Hola, Antoni, escribo solo porque esta vez, en lugar de preguntarte algo, me gustaría ofrecerte mi trabajo de pronóstico del tiempo terminado en todas sus partes. Claramente, desde que vivo en Italia, he seleccionado el nombre y mi región de la ciudad (Turín-Clima) Piamonte; Pero puedes ver más. No fue fácil hacer todo esto porque como un sitio tiene sus reglas duras y rápidas, pero como puede ver con su ayuda y buena voluntad por mi parte, configuré lo que quería lograr desde el principio. Espero que sea de su rango y de todos los participantes de este foro. Saludos sinceros de A.Maurizio. Este es el enlace para descargar todo: https://app.box.com/s/7vngvpcsxz8v8oha4zualf8yo59rvkqx ######################################## Hi Antoni I write only because this time Instead of asking you something: I would like to offer you my Weather Forecast Work Finished in all its parts. Clearly, since I live in Italy, I have selected the name and my City Region (Turin-Weather) Piedmont; But you can see more. It was not easy to do all this because as a site it has its hard and fast rules but as you see with your help and good will on my part I set up what I wanted to accomplish from the beginning. I hope that it is of your rank and of all the participants of this forum. Sincere Greetings from A.Maurizio This is the link to download everything: https://app.box.com/s/7vngvpcsxz8v8oha4zualf8yo59rvkqx
  21. Gracias Antoni Beautiful tu proyecto Es una pena que no pueda insertar claves adicionales para decir, por ejemplo, comenzar a escanear o el clima; Y elimina los símbolos para una nueva búsqueda. Pero por el momento, está bien! (p.S) Tal vez intentaré insertar dos botones y luego del código les pido que permanezcan en su lugar con la ayuda de los cofdici como: (Sheet1.Shapes ("Oval 1"). Altura Sheet1.Shapes ("Oval 1"). Izquierda Sheet1.Shapes ("Oval 1"). Arriba Sheet1.Shapes ("Oval 1"). Ancho) Porque para empezar todo probé el método: Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) Llamar a GetWheatherSub (myURL) End Sub Por aquí solo me faltaría el método de cancelación de los interesados. De todos modos, muchas gracias por su apoyo; Y lamento la demora en responder a esta publicación tuya, pero estoy muy ocupado con mi trabajo. Gracias Infinito y que tenga un buen día para todos ustedes en el Foro. ######################################################## Thanks Antoni Beautiful your Project Just a pity that I can't insert additional keys to say for example start scanning or weather; And eliminates symbols for a new search. But for the moment, that's okay! (p.S) Maybe I will try to insert two buttons and then from the code I ask them to stay in place with the help of the cofdici of the type: (Sheet1.Shapes ("Oval 1"). Height Sheet1.Shapes ("Oval 1"). Left Sheet1.Shapes ("Oval 1"). Top Sheet1.Shapes ("Oval 1"). Width) Because to start it all I tried the method: Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) Call GetWheatherSub (myURL) End Sub for here I would miss only the method of cancellation of the interested parties. Anyway, thank you very much for your support; And I'm sorry for the delay in answering this post of yours but I'm very busy with my work. Thanks Infinite and have a nice day to all of you at the Forum
  22. Hola a todos, mi nombre es Maurizio Y mi problema es este: En una hoja de Excel usando el código vba Extraiga los enlaces que están estrechamente vinculados a las imágenes para el sitio de pronóstico del tiempo (Wearther); Y hasta ahora todo bien. Estos enlaces, de acuerdo con mi testamento, se insertan en la columna (A30: A44). Además, para decir la verdad, no usaré solo Cinco. En la fila (A5: F5) Se extraen las imágenes reales tomadas de este sitio. Por lo tanto, mi pregunta es: podría crear una especie de cambio de tamaño tanto de las celdas como de (Formas) para poder adaptar todo en igual medida. (P.S) Creé una función que me funciona bien siempre que cambies el número progresivo de nuevas formas a mono en cada caso. En mi opinión, diríamos: la posibilidad de crear una Solta de reinicio de las nuevas formas, para que en cada búsqueda el sistema pueda reconocer las formas y modificarlas de vez en cuando. Gracias por toda la ayuda que me pueden brindar. Saludos de A. Maurizio #################################################################################### Hi everyone, my name is Maurizio And my problem is this: On an Excel sheet using the vba code Extract links that are closely linked to images for the weather forecast site (Wearther); And so far so good. These Links By my Will, are inserted in the column (A30: A44) Also to tell the truth I will not use only Five. In the Row (A5: F5) The actual images taken from this site are extracted. Therefore my question is: It could create a sort of resizing of both the cells and the (Shapes) in order to be able to adapt everything in equal measure. (P.S) I created a function that works well for me as long as you change the progressive number of new shapes to mono in each case. Pe here we would go in my opinion: The possibility of creating a Solta of Reset of the new shapes, so that at each search the shapes can be recognized by the system and modified from time to time. Thanks for all the help you can give me about. Greetings from A. Maurizio Meteo da Modificare 2.xlsm
  23. Hola, Haplox, muchas gracias por su amabilidad y bondad al hacerme observar cómo se construye una Macro y cómo funciona. Aparte del hecho de que: lo uso raramente porque primero creo algo en vba que no aprovecha la función de las macros. Pero más allá de todo, mi Macro era solo una prueba para comprender cuál era el código que vba podía aceptar para crear una especie de (Contorno di Cella) todo aquí Ahora, sin embargo, después de varios intentos y gracias también a su Ayuda anterior; Me las arreglé para entender cómo hacerlo. Gracias de nuevo, por toda la ayuda que siempre pueden brindarme a cada una de mis solicitudes. Saludos sinceros de A.Maurizio. (P. S) Tan pronto como haya terminado mi último esfuerzo, con mucho gusto le daré una copia. Mi advertencia viene muy bien; Entonces todos ustedes serán juzgados a sí mismos. Hola a usted y a todo el personal de Foro de Ayuda Excel. De verdad eres grande ###################################################### Hello Haplox thank you so much for your kindness and kindness in making me observe how a Macro is built and how it works. Apart from the fact that: I use it seldom because I first create something in vba that does not take advantage of the function of macros. But beyond all my Macro was just a test to roiscire to understand what was the code that the vba could accept to create a sort of (Contorno di Cella) all here Now, however, after several attempts and thanks also to your Past Aid; I managed to understand how to do it. Thanks again, for all the help you can always give me to my every request. Sincere Greetings from A.Maurizio (P. S) As soon as I have finished my last effort, I will gladly give you a copy. My warning is coming very well; Then you will all be judging yourself. Hello to you and to all the staff of Foro de Ayuda Excel You are great indeed.
  24. Hola gerson pineda Tal vez el traductor de Google no traduce perfectamente lo que dices me gusta. El hecho es que no entiendo lo que quieres decir cuando dices: que yo A veces pides cosas básicas, te das tiempo, porque VBA es muy útil, ¿no es así? No entiendo todo esto, porque antes de hacerte una pregunta, trato varias veces de resolver mis problemas yo solo. ¡Y solo después de varios intentos que me dirijo a ti! ¿Qué pasa con todo esto? Quiero decir que: si te molesta mi presencia, solo dilo y ya no te hablo. De lo contrario, y cierto, hay cosas muy difíciles que puedo resolver por mí mismo. Y cosas aparentemente triviales que no podría resolver de ninguna manera sin su ayuda. No, pregúntame por qué pero así! Saludos sinceros de A.Maurizio. ############################################################################## Hi Gerson Pineda Perhaps the Google translator does not translate perfectly what you say I like it. The fact is that I do not understand what you mean when you say: That I Sometimes you ask for basic things, you give yourself time, because VBA is very useful, is not it? All of this I do not understand, because before asking a question to you I try several times to solve my problems by myself. and only after several attempts that I turn to you! What's wrong with all this? I mean to say that: If you are bothered by my presence, just say it and I do not speak to you any more Otherwise, and true there are very difficult things that I can solve by myself And apparently trivial things that I could not solve in any way without your help No, ask me why but so! Sincere Greetings from A.Maurizio
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png