Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64429 Skopiuj do schowka Makro a data
Autor Wiadomość
gregorie
świeżak


Wersja: Win Office 365
Posty: 1
Wysłany: 14-03-2019, 11:46   Makro a data

Witam,
w załączniku wysyłam jak chciałbym aby to wyglądało.
Chcę aby data była statyczna i pokazywała się za każdym razem gdy wpisze cokolwiek w rubryce Uwagi 1 lub Uwagi 2. Odpowiedni data pokazywała by się w rubryce data 1 oraz data 2.
To o czym pisze jest w "Dane"

I pytanie z innej beczki - jak w panelu kontrolnym rozszerzyć fotografie na całą tabele ?

Pozdrawiam serdecznie :)

test1.xlsx
Pobierz Plik ściągnięto 11 raz(y) 22.67 KB

ID posta: 364211 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 257 razy
Posty: 1394
Wysłany: 14-03-2019, 15:30   

Witamy na Forum.

Ad. 1 - patrz: załącznik.
Ad. 2 - jaką fotografię?
.

Kopia test1.xlsm
Pobierz Plik ściągnięto 8 raz(y) 29.23 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
  
ID posta: 364229 Skopiuj do schowka
 
 
Tajan


Pomógł: 4285 razy
Posty: 9521
Wysłany: 14-03-2019, 19:33   

Proponuję użyć w module arkusza "Dane" takiej procedury zdarzeniowej:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As ListObject
Dim rng As Range
Dim cel As Range


With Target
     
     Set tbl = .ListObject
     
     If tbl Is Nothing Then Exit Sub
     
     On Error Resume Next

     Set rng = Intersect(.Cells, _
               Union(tbl.ListColumns("Uwagi 1").DataBodyRange, _
                     tbl.ListColumns("Uwagi 2").DataBodyRange))
     
      On Error GoTo 0
     
     If rng Is Nothing Then Exit Sub

End With

Application.EnableEvents = False

For Each cel In rng
       
        If cel.Value = "" Then
           cel.Offset(0, 1) = ""
        Else
           cel.Offset(0, 1) = Date
        End If
Next

Application.EnableEvents = True

End Sub


  
ID posta: 364241 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe