Sub Dodawanie()
Range("A5").Copy Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub
Kod ma za zadanie skopiować wartość komórki A5 i przenieść ją do pierwszej wolnej komórki w kolumnie D
Wszystko działa prawie tak jak trzeba z jednym wyjątkiem.
Funkcja ta kopiuje cała komórkę włączając w to listę rozwijaną (sprawdzanie poprawności danych), która w tej komórce jest a mi zależy tylko na tym aby skopiowana była sama wartość (text) komórki i wklejona do pierwszej wolnej komórki w kolumnie D.
Czy jest ktoś w stanie powiedzieć jak to wykonać?
Ja sam jestem laikiem i raczej nie dam rady tego rozgryźć.
Szukałem po necie i są jakieś rozwiązania ale nie potrafię ich połączyć z funkcją wklejenia do pierwszej wolnej komórki kolumny D.
Za pomoc z góry dziękuję.