Elektroda.pl
Elektroda.pl
X
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

[Excel] Wyszukiwanie i transpozycja wartości > 0

Barnard33 18 Jul 2018 09:08 513 5
  • #1
    Barnard33
    Level 5  
    Cześć
    Chciałbym:
    - wyszukać w poprzednich 10 wierszach koilumny A wartości >0
    - transponować powyższe do wierszy B, C, D, ... Formuła kopiowana w dół.
    Kolejność może być odwrotna, może być w ogóle inne podejście do tematu. Byle było zautomatyzowane.

    Plik w załączeniu: wartości na białym tle są wpisane, a mamy uzyskać wartości w komórkach na szarym tle.

    Czy da się to zrobić?
  • Helpful post
    #2
    Prot
    Level 38  
    Barnard33 wrote:
    Czy da się to zrobić?

    Można to zrobić np przy użyciu dodatkowych kolumn z formułami pośrednimi, oraz przy użyciu funkcji WYBIERZ() tak jak na zrzucie:
    [Excel] Wyszukiwanie i transpozycja wartości > 0wybor.JPG Download (58.86 kB)
    Wszystkie funkcje w załączonym pliku :spoko:
    wybor.xlsx Download (10.59 kB)Points: 1.5 for user
  • #3
    krzkus2
    Level 11  
    Co jeśli wierszy kolumnie będzie więcej niż pól w "tabelce"?
    tutaj masz na szybko napisany kod :D działa.

    Sub przerzucanie()
    Dim i As Integer
    Dim cell As Range
    Dim o As String
    
    i = 11
    o = "B"
    For Each cell In Worksheets("arkusz1").Range("a:a").Cells
    If i = 22 And o = "B" Then
    o = "c"
    i = 11
    Else
    If i = 22 And o = "c" Then
    o = "d"
    i = 11
    
    End If
    End If
    
    If cell.Value > 0 Then
    Range(o & i).Value = cell.Value
    i = i + 1
    
    Else
    If cell.Value = "" Then
    Exit For
    End If
    End If
    Next cell
    
    End Sub
  • #4
    Barnard33
    Level 5  
    Czy to VBA?
  • #5
    krzkus2
    Level 11  
    dokładnie tak, byłoby fajnie gdybys podał jakieś szczegóły tego jak ma to wyglądać.
  • #6
    Barnard33
    Level 5  
    krzkus2 wrote:
    dokładnie tak, byłoby fajnie gdybys podał jakieś szczegóły tego jak ma to wyglądać.

    Całość jest / będzie znacznie bardziej rozbudowana, powiązana z Access itd. I jest w trakcie tworzenia.
    Nie mam nic przeciwko udostępnieniu czy sukcesywnemu udostępnianiu, choć już raczej na PW. Oznaczałoby to pewnego rodzaju współpracę.
    A chodzi w tym o budowanie strategii dla inwestowania na rynku forex.

    PS. Na excelforum.pl uzyskałem pożądaną formułę na pytanie jak w obecnym wątku.