Podrzuć załącznik w excelu z przykładowymi danymi. Tak będzie pewniej i łatwiej.
napisał: Tomix77 postów: 20
umieszczony: 26 maja 2011 06:58
Witam
Sprawdziłem, ale okazuje sie że makro nie weryfikuje 2 arkuszy, uruchomieniu nic sie nie dzieje :).
Proszę o informację.
Wielkie Dzieki
napisał: Trebor postów: 1209
umieszczony: 20 maja 2011 16:48
Sprawdź czy o to chodzi
Sub sprawdź() Dim i As Long, j As Long, komorka As Range With Sheets("Arkusz2") For i = 2 To Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Row Set komorka = Sheets("Arkusz1").Cells(i, 1) For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(j, 1) = komorka Then If komorka.Offset(0, 4) = "" Then
Sheets("Arkusz1").Cells(i, 5) = .Cells(j, 2)
Sheets("Arkusz1").Rows(i).Interior.Color = vbRed EndIf EndIf Next j Next i EndWith EndSub
napisał: Tomix77 postów: 20
umieszczony: 19 maja 2011 08:16
Witam
Przychodząc do pracy muszę codziennie sprawdzać status importu danych do bazy.
Czy jest taka możliwość, że np. mam plik Excela w którym w Arkuszu 1 mam wszystkie importowane dane w Arkuszu 2 wklejam dane zaimportowane.
Arkusz 1 - nagłówek - kolumna 1 - Identyfikator importu
Kolumna 2 - Status
Kolumna 3 - PZ
Kolumna 4 - GO
Kolumna 5 - Status importu
Mając powyższe dane, chciałbym, żeby Excel porównał Arkusz 1 oraz Arkusz 2 po Identyfikator importu, jeżeli znajdzie identyczny identyfikator to zaznacza w Arkuszu 1 cały znaleziony wiersz np. kolorem czerwonym oraz kopiuje z pola Status importu Arkusz 2 do Arkusza 1 w pole Status importu. Następnego dnia jak -uruchomię- powyższą weryfikację to sprawdza ze jeżeli już wcześniej był wykryty Identyfikator importu i w polu Status importu jest już status Zamknięta/Zaimportowana lub Zamknięta/Odrzucona to nie zaznacza tego wiersza.
Jeżeli ktoś mam jakiś pomysł jak to rozwiązać to będę bardzo wdzięczny.
wstecz 1 dalej
otwarty rozpoczął: Tomix77
postów: 4
