Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA Excel - Aktualizacja tabeli z pominieciem pustych pol

aenariona 12 Lut 2019 15:21 96 2
  • #1 12 Lut 2019 15:21
    aenariona
    Poziom 2  

    Hej,

    Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli 200 osob 37 roznych szkolen. Dane dostaje w wersji
    Jan Kowalski szkolenia HR 20/01/2019
    musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom.

    Jestem w stanie do pustej tabeli przy pomocy formul przeniesc daty natomiast nie potrafie zaktualizowac wlasciwej tabeli zostawiajac poprzednie daty.

    Jedyne rozwiazanie jakie znalazlam to przefiltrowanie tabeli tak aby zostaly w niej nazwiska osob, ktore w danym miesiacu robily jakies szkolenia i kopiowanie kolumnami przy uzyciu ponizszego makra:

    Sub WstawDane()
    Dim rng1 As Range, rng2 As Range
    Dim i As Long, j As Long

    On Error GoTo Error_Proc
    Set rng1 = Selection
    If rng1.Columns.Count > 1 Then
    MsgBox "Musisz miec zaznaczona jedna kolumne danych " & _
    "przed uruchomieniem makra", vbCritical
    Exit Sub
    End If

    Set rng2 = Application.InputBox("Zaznacz dane do wklejenia", _
    Type:=8)
    For i = 1 To rng1.Count
    If rng1(i).EntireRow.Hidden = False Then
    j = j + 1
    rng2(j).copy rng1(i)
    If j = rng2.Count Then Exit For
    End If
    Next
    Application.CutCopyMode = False

    Error_Proc:
    End Sub

    Jednak przy tym sposobie i tak jest sporo przeklikiwania.
    Czy bylaby mozliwosc zeby ustalic kopiuj- wklej ale z pominieciem pustych pol (dla makra powyzej) lub aby wyszukac Imienazwisko w wierszu i szkolenie w komorce i jezeli w mojej tabeli bylaby jakas wartosc to "wymienic" ja w tabeli glownej,a puste pola pominac?

    0 2
  • #2 12 Lut 2019 18:29
    strzmiele
    Poziom 9  

    Witam,
    1. szczerze mowiac tak nagmatswales w tym opisie dzialania ze nie wiadomo o co chodzi -
    2. pytanie w zlej kategorii - bo to nie serwis oprogramowania bo Excel dziala - tylko raczej problem z obsluga i to tylko VB

    0
  • #3 13 Lut 2019 09:58
    aenariona
    Poziom 2  

    Ciezko to wytlumaczyc. Przyklad o co chodzi w zalaczniku. I co probuje zrobic to to zeby dane z tabeli 2 zostaly zaimportowane do tabeli 1.
    Problem w tym ze moja tebala ma 37 roznych kursow i ponad 200 nazwisk wiec miesiecznie jest do uzupelnienia lub zmienienia jakies 800 dat :(

    0