MS Excel

ahojte
nebudem to nejako rozpisovat , priloha prezradi vsetko
da sa to nejakym jednoduchym vzorcekom , alebo si budem musiet vymysliet makricko? (ak tam bude nejaky posun a index tak idem do makra)
vopred dakujem

Zaslat odpověď >

eLCHa(3.10.2016 16:38)#032958

ak tam bude nejaky posun a index tak idem do makra

budecitovat

syd(3.10.2016 23:53)#032959

Zdravim,

zkus nasledujici:
Sub test()
Dim ws As Worksheet, a, b, i As Long, m As Long, lr As Long, rng As Range
Set ws = ActiveSheet
On Error GoTo ER
Application.ScreenUpdating = False
With ws
a = .Range("F3:I3")
Set rng = .Cells(4, 6)
lr = .Range("B" & .Rows.Count).End(xlUp).Row
For i = 1 To UBound(a, 2)
.Range("A3:B3").AutoFilter field:=1, Criteria1:=a(1, i)
b = .Range("B4:B" & lr).SpecialCells(12).Cells.Value
m = UBound(b, 1)
Set rng = rng.Resize(m, 1)
.ShowAllData
rng = b
Set rng = rng.Resize(1, 1).Offset(0, 1)
Next i
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
Exit Sub
ER:
Application.ScreenUpdating = True
MsgBox ("Chyba: " & Err.Number & " - " & Err.Description), vbCritical, "Konec"
End Sub
citovat

misocko(4.10.2016 9:42)#032960

dakujem

idem teda do makra, skusim to od syda, pripadne si spravim svojecitovat

Pavlus(4.10.2016 11:17)#032961

Nedá mi to, musím se zeptat ;-).
Proč nechceš využít funkce POSUN a INDEX?
P.

Jedno z možných maticových řešení:
{=IFERROR(INDEX($B:$B;SMALL(KDYŽ($A:$A=F$3;ŘÁDEK($A:$A));ŘÁDEK($A1)));"")}citovat

misocko(5.10.2016 8:21)#032975

pretoze tymto vzorcom vobec nerozumiem, nedokazal som ich pochopit tak aby som s nimy mohol robit a ak sa nieco take vyskytne , urobim radsej makro.
trochu som nad tym este premyslal, uz aj tie data si pripravujem makrom, tak ich pripravim lepsie - uz predspracovane pre zjednosunie tejto operacie. asi som len potreboval nechat si to prejst hlavou.
dakujem teda za nakopnutia

citovat

syd(9.10.2016 20:24)#033029

Tady jeste jedno nakopnuti...
Lepsi reseni nez prve makro (kt. bych radsi smazal, ale nejde to..):

Sub test1()
Dim ws As Worksheet, a, el, lr As Long, target As Range
Application.ScreenUpdating = 0
Set ws = ActiveSheet
a = ws.Range("F3:I3")
lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
Set target = ws.Range("F4")
For Each el In a
With ws.Range("A3:B" & lr)
.AutoFilter field:=1, Criteria1:=el
.Resize(.Rows.Count - 1, 2).Offset(1, 0).Columns(2).Copy
target.PasteSpecial xlPasteValues
.AutoFilter
Set target = target.Offset(0, 1)
End With
Next el
Application.ScreenUpdating = 1
End Sub
citovat

misocko(9.10.2016 20:43)#033031

este raz diki, uz som to vsak vyriesil samotnou pripravou dat a nikdy by ma nenapadlo pouzit filter. ked budem v praci, mozem poslat to ako som to nakoniec dal ja, sice tam mam trochu rozmyslania, ale pouzivam iba to co viem pouzit (ziadne offset ani bodky na zaciatku riadku, to je pre programatorov, ja som v tomto stary drevorubac a z pohladu na ktorykolvek riadok musi byt jasne o co ide

)citovat

Téma: priradenie

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje