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
Przesunięty przez: Artik
13-07-2020, 01:20
kopiowanie między 2 plikami przy spełnieniu warunku
Autor Wiadomość
Pablos 
świeżak


Wersja: Win Office 365
Posty: 2
  Wysłany: 12-07-2020, 11:09   kopiowanie między 2 plikami przy spełnieniu warunku

Przypuszczam, że dla fachowców jak tutaj widzę zadanie będzie banalne a dla mnie nie.
Mamy dwa pliki: „Wyj” i „Source”. Należy z pliku „Source” skopiować komórki z kolumny „indeks-new” do pliku „Wyj” gdzie polem łączącym jest kolumna „indeks-s”. Dodatkowo w kolumnie „kontrola” należy wpisać wartość „8”. Plik „Wyj” jest w lokalizacji sieciowej a „Source” na lokalnym komputerze. Jako kontrola w kolumnie skopiowano powinien pojawić się status 1-sukces, 3-problem

Wyj.xlsx
Pobierz Plik ściągnięto 8 raz(y) 9.36 KB

Source.xlsx
Pobierz Plik ściągnięto 7 raz(y) 9.13 KB

ID posta: 389585 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 662 razy
Posty: 3481
Wysłany: 13-07-2020, 04:03   

Początek!. Oba pliki muszą być otwarte.
Cytat:
Plik na serwerze
- zmapuj. Ścieżkę sieciową powinieneś znać. Tu taki przykład:
Kod:
Set wbS = Workbooks("Source.xlsm")

Kod:
Option Explicit

Private Sub CommandButton1_Click()
Dim wbS As Workbook, wbW As Workbook
Dim wsS As Worksheet, wsW As Worksheet
Dim i&, j&, d&, d1&

Set wbS = Workbooks("Source.xlsm")
Set wbW = Workbooks("Wyj.xlsx")

Set wsS = wbS.Sheets(1)
Set wsW = wbW.Sheets(1)

d = wsS.Cells(Rows.Count, "C").End(xlUp).Row
d1 = wsW.Cells(Rows.Count, "C").End(xlUp).Row

wsW.Range("E2:E10000").ClearContents
wsW.Range("F2:F10000").ClearContents

For i = 2 To d
    For j = 2 To d1
        If wsS.Cells(i, 3).Value = wsW.Cells(j, 3).Value Then
            wsW.Cells(j, 7).Value = wsS.Cells(i, 3).Value
            wsW.Cells(j, 5).Value = 8
        Else
            wsW.Cells(j, 3).Value = 3
        End If
    Next j
Next i

End Sub

Napisałem: POCZĄTEK! (jest 4-ta godzina nad ranem) > https://www.youtube.com/watch?v=vtopljs5FQw

Może ktoś "pociągnie"? :mrgreen: .
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 389609 Skopiuj do schowka
 
 
Pablos 
świeżak


Wersja: Win Office 365
Posty: 2
Wysłany: 13-07-2020, 09:59   

Dzięki :).
Wpisywanie działa (i za to duży dzięks) ale nie tak jak trzeba. Powinien się znaleźć wsS swój odpowiednik w wsW. Czy użyć Vlookup? A może Find?
ID posta: 389617 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 662 razy
Posty: 3481
Wysłany: 13-07-2020, 12:32   

Zaraz zobaczę. Ale na pewno nie Find ani vLookUp > Application. Match(Szukane, Gdzie, Rodzaj dopasowania).
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 389624 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