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: 64090 Skopiuj do schowka Automatycznie aktualizująca się tabela
Autor Wiadomość
Sawthis
świeżak


Posty: 6
  Wysłany: 10-02-2019, 01:15   Automatycznie aktualizująca się tabela

Cześć,

mam pytanie początkującego - w arkuszu "formatka" zrobiłem miejsce na datę i 15 ocen w różnych kategoriach (od A do O). Chciałbym aby po kliknięciu w przycisk do arkusza "Tabela danych" został wstawiony nowy rekord z datą i tymi 15 ocenami - a formatka się opróżniła na wpisanie kolejnego rekordu. Dodatkowo chciałbym żeby w razie dodania nowego rekordu z tą samą datą - stary został zastąpiony.

Z góry dziękuję za pomoc - plik w załączniku :)

test.xlsx
Pobierz Plik ściągnięto 3 raz(y) 19.29 KB

_________________
Dzięki :)
ID posta: 362290 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 242 razy
Posty: 1325
Wysłany: 10-02-2019, 04:09   

Draft (na dodatek bez "Dodatkowo" :mrgreen: ):
Kod:
Option Explicit

Private Sub CommandButton1_Click()
Dim wsF As Worksheet, wsTB As Worksheet
Dim i As Long, k As Long, d As Long

On Error Resume Next

Set wsF = Sheets("Formatka")
Set wsTB = Sheets("Tabela danych")

d = wsTB.Cells(Rows.Count, "A").End(xlUp).Row

If wsF.Cells(4, 2).Value = "Wpisz datę" Then
    MsgBox "Czy ja piszę po chińsku?", vbCritical, "WPISZ PRAWIDŁOWĄ DATĘ!"
    Exit Sub
End If

wsTB.Cells(d + 1, 1).Value = wsF.Cells(4, 2).Value

For i = 3 To 17
    wsTB.Cells(d + 1, i - 1).Value = wsF.Cells(i, 7).Value
    wsF.Cells(i, 7).Value = ""
Next i

wsF.Cells(4, 2).Value = "Wpisz datę"

End Sub

.

aaaaaaaaaaaaaaaa.xlsm
Pobierz Plik ściągnięto 4 raz(y) 32.29 KB

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


Pomógł: 1465 razy
Posty: 4725
Wysłany: 10-02-2019, 08:59   

W załączniku z "Dodatkowo..."

aaaaaaaaaaaaaaaa - Kopia.xlsm
Pobierz Plik ściągnięto 7 raz(y) 31.68 KB

ID posta: 362302 Skopiuj do schowka
 
 
Sawthis
świeżak


Posty: 6
Wysłany: 12-02-2019, 01:13   

Tadek - Dzięki za pomoc! Super. Jeszcze jedna prośba - czy ta tabela generująca się w arkuszu Tabela danych mogłaby się sortować automatycznie od najnowszych po dacie?

Z góry dziękuję!
_________________
Dzięki :)
ID posta: 362404 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1465 razy
Posty: 4725
Wysłany: 12-02-2019, 07:51   

Mogłaby.
Zobacz w załączniku.

aaaa (2).xlsm
Pobierz Plik ściągnięto 6 raz(y) 32.29 KB

ID posta: 362412 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