Extienda el día de la semana tomado de la columna (A) y devuélvalo a la columna (B)

[A.Maurizio]

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

[ikanni]

Hola

Ahi tienes un manera...

Copia de Evidenzia_Sabati_e_Domeniche-1.xlsm

[A.Maurizio]

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

[Antoni]

Otra forma:

Sub DíaSemana()
Dim Día As Variant, x As Long
Application.ScreenUpdating = False
Día = Array("", "Lunedi", "Martedi", "Mercoledi", "Giovedi", "Venerdi", "Sabato", "Domenica")
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Range("B" & x) = Día(Weekday(Range("A" & x), vbMonday))
Next
End Sub

 

[A.Maurizio]

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

[John Jairo V]

¡Hola, a todos!

Otra opción mucho más sencilla es usar la función TEXTO (TESTO), nativa de Excel.

como estamos en el apartado de macros, puedes usar:

Sub Giorni()
  Dim uf&: uf = Range("A" & Rows.Count).End(xlUp).Row
  With Range("B2:B" & uf)
    .Formula = "=PROPER(TEXT(A2, ""[$-410]dddd""))"
    '.Value = .Value
  End With
End Sub

Nota:  Si quieres solo el resultado (sin la fórmula en la celda), puedes quitar / borrar el apóstrofo ( ' ) de la línea:

' .Value = .Value

¡Bendiciones!

 

[A.Maurizio]

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

[A.Maurizio]

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