Saltar al contenido

How to Take Advantage of the VBA Technique of Function (Concatenate and Text) Taken from Sheet 2


Recommended Posts

publicado

Hello everyone, my name is Maurizio
And my Problem is this:
1) On Excel Sheet 2 In Column (C) I will insert dates

2) While in column (D) I will insert the corresponding day of the week belonging to that date.

Now my question is this: Would There Be a Way To Make That Using the Function Written in VBA Of The Construct (Concatenate and Text) I go to insert everything in the single column
(C8: C) of Sheet 1 using the empty line every time.
That's all. Thank you in advance for all the help or suggestions you would like to give me about it.
(P.S) I personally tried this and it works very well.
The Problem is that I would like to extend it to the entire Column of sheet 1 using the VBA m; But I can't
Thanks to all from Maurizio

Prova_Procedura_Concatena.xlsm

publicado

Hello @A.Maurizio

I do not know if I have understood well your request, but I think that what you need is the next code, in Foglio2

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 3 Or Target.Row < 4 Then Exit Sub
    
Target.Offset(, 1) = WeekdayName(Weekday(CDate(Target)), , vbSunday)
Foglio1.Cells(Target.Row, 3) = Target & "-" & Target.Offset(, 1)

End Sub

I wait for your feedback

publicado

Ciao Aplox
Come sempre, hai
capito il mio problema al volo È proprio come hai fatto tu e bello.
Un po 'difficile per
me capire
tutto Perché come hai potuto vedere le prime tre rughe del foglio 1 stavo cercando di usare la formula (Link e Testo) che non sono male.
Ma è chiaro che allora mi mancava tutto il resto.
Grazie ancora per tutto quello che sei un genio.
(P.s) Comunque quando hai un momento di tempo e desiderio; potresti spiegare
il
tuo tweet grazie Sei un amico Saluti a te e a tutto lo staff di con simpatia da A.Maurizio


############################################

Ciao aplox
Come sempre, hai capito il mio problema in movimento.
È proprio come hai fatto tu e bella.
Un po
'difficile per me capire tutto perché, come puoi vedere le prime tre rughe di Leaf 1?
Stavo cercando di usare la formula (Link e Text) che non sono male.
Ma è chiaro che allora mi mancava tutto il resto.
Grazie ancora per tutto, sei un genio.
(P.s) Comunque quando hai un momento di tempo e vinci; potresti spiegare
il
tuo tweet grazie Sei un saluto molto amichevole a te e a tutto lo staff di (HelpExcel) con la simpatia di A.Maurizio

publicado

Hello again @A.Maurizio. the code is in the Change event of the sheet, so when you change something on it, the code is launched.

In this case, we delimit the changes only to the column 3 ("C") an from the row 4 onward. If it is not the case, we leave the sub. Take into account that "Target" is the cell you change.

Then we use the VBA function "WeekdayName" (search for it on google). One of its parameters is the date to evaluate, in this case is the own "Target", so we transform its format to date (CDate)

Then in Foglio1 we copy concatenated the target (date) and the result of the "WeekdayName" function, in the same row that we have changed in Foglio2 (remember, the target) an in column 3 ("C")

I expect to have been clear, not to get you mor confused than before... :)

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.