VBA.Mania

Dziś jest niedziela, 12 maja 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	W jak sposób skopiować obszar (B30:I38) np. z arkusza D300 do obszaru zdefiniowanego (smst) otwarty rozpoczął: jamanow postów: 9

napisał: jamanow postów: 69 umieszczony: 17 kwietnia 2012 19:18 edytowany: 17 kwietnia 2012 20:08
	działa perfekt, DZIĘKUJE.

napisał: Trebor postów: 1209 umieszczony: 17 kwietnia 2012 16:50
	Po If Not IsError(wartosc) Then dodaj If wiersz = 30 Then .Hyperlinks.Add Anchor:=.Cells(wartosc, 1), Address:="", _ SubAddress:="'" & ActiveSheet.Name & "'!A1", TextToDisplay:=ActiveSheet.Name

napisał: jamanow postów: 69 umieszczony: 16 kwietnia 2012 22:40
	Mam nadzieje ze moja kolejna prośba nie zostanie złe odebrana. Czy jest możliwe dodanie do twojego kodu procedury, która by automatycznie wpisała nazwę arkusza z którego dokonano importu z jednoczesnym hiperlinkiem do tegoż arkusza na poziomie pierwszego importowanego wiersza. Według załączonego obrazu/link. D300 (wraz z hiperlinkiem) na poziomie Ref.nr. 10 w kolumnie B Uploaded with ImageShack.us

napisał: jamanow postów: 69 umieszczony: 16 kwietnia 2012 19:56
	Działa dokładnie jak sobie wymarzyłem. Serdeczne dzięki za pomoc.

napisał: Trebor
postów: 1209

umieszczony:
16 kwietnia 2012
18:43

nazwa pliku	rozmiar
TEST-FU_T.rar	150.11 kB

Hej
Na początek wypróbuj poniższy kod:

Sub importFranINDEX()

    Dim wiersz As Long
    Dim kolumna As Long
    Dim wartosc
With Sheets("Sammanställning")
    For wiersz = 30 To 38
            wartosc = Application.Match(Cells(wiersz, "B").Value, .Columns(2), False)

    If Not IsError(wartosc) Then
        For kolumna = 3 To 9
                .Cells(wartosc, kolumna).Value = Cells(wiersz, kolumna)
        Next kolumna
    End If
    Next wiersz
End With
End Sub

W załączniku plik otrzymany mailem z powyższym makrem

napisał: Trebor postów: 1209 umieszczony: 16 kwietnia 2012 17:48
	Załącznik coś nie działa. Wyślij na Trebbor@wp.pl

napisał: jamanow
postów: 69

umieszczony:
16 kwietnia 2012
17:21

nazwa pliku	rozmiar
TEST-FU Pärm v6.rar	157.64 kB

Święta racja, załączam przykład

napisał: Trebor postów: 1209 umieszczony: 15 kwietnia 2012 17:37
	Niestety bez załącznika trudno zrozumieć to co napisałeś. Spróbuj edytować posta i dołączyć skoroszyt.

napisał: jamanow postów: 69 umieszczony: 15 kwietnia 2012 13:30
	W jak sposób skopiować obszar (B30:I38) np. z arkusza D300 do obszaru zdefiniowanego ("smst") Arkusz „Sammanställning” Tak ażeby kopiowane wartości trafiły w odpowiedni obszar tabeli ("smst"), chodzi mi o Ref.nr. Celem moim jest inteligentny kod który działa dla wszystkich arkuszy typu Dxxx . Który inteligentnie wyszykuje odpowiedni obszar w indexowym arkuszu Sammansäellning Cos na zasadzie poniższego kodu który kopiuje dane z indexu do arkuszów Dxxx Sub kopierarFrånIndex() Dim wiersz As Long Dim kolumna As Long Dim wartosc For wiersz = 30 To 38 For kolumna = 3 To 9 wartosc = Application.VLookup(Cells(wiersz, "B").Value, Range("smst"), kolumna - 1) If Not IsError(wartosc) Then If wartosc > 0 Then Cells(wiersz, kolumna).Value = wartosc Else Cells(wiersz, kolumna).Value = "" End If Else Cells(wiersz, kolumna).Value = "" End If Next kolumna Next wiersz End Sub Patrz załącznik Ewentualne rozwiązanie tego problemu umożliwia dwustronna edycje (editing), (patrz kod w skoroszycie) pomiędzy arkuszem „Sammanställning”, (który funkcjonuje, jako index dla pozostałych arkuszy) z innymi arkuszami

wstecz 1 dalej

wszystkich stron: 1