[Delila]

Idézet: KoXaMan - Dátum: 2009. jan. 8., csütörtök - 10:24

=Adatok!$C3&" "&Adatok!$B4
=Adatok!$C(3+$5)&" "&Adatok!$B(4+$5) <-laikusan
=Adatok!$C(8+$5)&" "&Adatok!$B(9+$5)
=Adatok!$C(13+$5)&" "&Adatok!$B(14+$5)

A második lapra vegyél fel két új oszlopot, pl. C és D.

C1-be 3, D1-be 4
C2-be =C1+5, D2-be =D1+5. Ezt a két képletet lemásolod, ameddig kell.

A1-be =INDIREKT("Adatok!C"&C1)& " "&INDIREKT("Adatok!B"&D1)

Ezt is lemásolod, ameddig kell, ez az oszlop hozza majd a kellõ eredményt.

[KoXaMan]

Idézet: Delila - Dátum: 2009. jan. 8., csütörtök - 11:40

A második lapra vegyél fel két új oszlopot, pl. C és D.

C1-be 3, D1-be 4
C2-be =C1+5, D2-be =D1+5. Ezt a két képletet lemásolod, ameddig kell.

A1-be =INDIREKT("Adatok!C"&C1)& " "&INDIREKT("Adatok!B"&D1)

Ezt is lemásolod, ameddig kell, ez az oszlop hozza majd a kellõ eredményt.

köszi szépen ez mûködik most még egy kérdés lenne lehet olyat csinalni még hogy vannak olyan adatok a D tablabábol vett adatokba ami kockás illletve sima zárojelbe vannak
mert a B bekert oszlop igy néz ki :

szöveg [érték: 4.9] (game, feather) (játék, toll)

A C oszlop meg:

szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg-kontur

Tehét a B böl elhagyhato a szöveg csak az érték és  a (játék, toll) kell de ha az angol is benn marad az nem baj aC böl meg eleg lenne csak a szöv.eg.ek.mondatok. meg az évszám.

Tehát valami ilyesmi legyen a kimenete:
szöv(.)eg(.)ek(.)mondatok(.)1987. [érték: 4.9] (játék, toll)
a zárojelbe lévö pontokat ha lehet eltünteni és szoközzel helyettsíteni

hogy csak azokat jelenítse meg a többi sima szöveget ne mikor az indireket el kikérem az adatokat lehet ilyet csinalni ? esetleg ha fügvénnyel ? , bár lehet tulsokat akarok egyszerre de hálás lennék ha valaki irányt vagy alternativát mutatna 

Szerkesztette: KoXaMan 2009. 01. 08. 11:14 -kor

[Delila]

Ezt makróval lehet megoldani, délután megírom.

[FragMaster]

Ide is berakom, had fogyjon el hamar
A gazdasági részbõl kb csak ezekkel nem tudok már mit kezdeni, hogy jó legyen, hátha valakinek van tippje:

[Wyco]

Na most akkor mi az az egyvaltozos adattabla?

[Wyco]

az elsore

Kis 3
Nagy 4
Orsos 3
Veres 3
Orosz 3
Nemeth 2
avg 3

(megoldas: goal seek)

[Wyco]

masodik:
ha a szamok g2:g13
=AVERAGE(G2:G13)&","&LARGE(G2:G13,2)&","&SMALL(G2:G13,2)

[FragMaster]

Idézet: Wyco - Dátum: 2009. jan. 8., csütörtök - 14:50

masodik:
ha a szamok g2:g13
=AVERAGE(G2:G13)&","&LARGE(G2:G13,2)&","&SMALL(G2:G13,2)

Ezek okésak, csak azt nem tudom hogy tudnám adattáblába ültetni, hogy mûködjön is. Elérhetõ amúgy az Adatok/Adattábla alatt, és mivel egyváltozós kell így csak egy oszlop vagy sorértéket kell megadni. Az elmélet megvan, a megvalósítás várat

Az elsõ valóban célértékkeresés lesz, nagyon köszönöm

[Wyco]

Hmm az adattablakat sajnos nem ismerem, sose hasznaltam oket...
Nm

[Delila]

KoXaMan

Itt a makró, amit ígértem:

Sub BC_oszlop()
    For sor = 1 To Range("B65536").End(xlUp).Row
        szöveg = Cells(sor, 2): szöveg_b = ""
        'B oszlop
        For betü = Len(szöveg) - 1 To 1 Step -1
            If Mid(szöveg, betü, 1) <> "(" Then
                szöveg_b = Mid(szöveg, betü, 1) & szöveg_b
            Else
                Cells(sor, 2) = szöveg_b: Exit For
            End If
        Next
        'C oszlop
        szöveg = Cells(sor, 3)
        For betü = Len(szöveg) - 1 To 1 Step -1
            If Asc(Mid(szöveg, betü, 1)) > 47 And Asc(Mid(szöveg, betü, 1)) < 58 Then
                Cells(sor, 3) = Left(szöveg, betü) & ".": Exit For
            End If
        Next
    Next
End Sub

[Root_Kiskacsa]

Idézet: Wyco - Dátum: 2009. jan. 8., csütörtök - 16:09

Hmm az adattablakat sajnos nem ismerem, sose hasznaltam oket...
Nm

F1 rulez! :Ð

Idézet

Az egyváltozós adattáblákat (adattábla: Olyan cellatartomány, amely megmutatja, hogy milyen eredményeket kapunk, ha egy vagy több képletbe különbözõ értékeket helyettesítünk be. Kétféle adattábla létezik: az egyváltozós és a kétváltozós tábla.) úgy kell elrendeznünk, hogy a bemeneti értékek egy oszlopban (oszlop irányú) vagy egy sorban (sor irányú) helyezkedjenek el. Az egyváltozós adattábla képleteinek (képlet: Egy adott cellában lévõ értékek, cellahivatkozások, nevek, függvények vagy operátorok (mûveleti jelek) sorozata, amelyek együttesen új értéket hoznak létre. A képletek mindig egyenlõségjellel (=) kezdõdnek.) egy bemeneti cellára (beviteli cella: Olyan cella, amelyben adattáblából származó bemeneti értékeket helyettesítünk. A munkalap bármely cellája használható beviteli cellaként. Nem szükségszerû, hogy a beviteli cella az adattábla részét képezze, de az adattábla képleteinek a beviteli cellára kell hivatkozniuk.) kell hivatkozniuk.

Írjuk be a bemeneti cellába behelyettesíteni kívánt értékek listáját egy sorba vagy egy oszlopba.
Hajtsuk végre a megfelelõ mûveletet:
Ha az adattábla oszlop irányú, a képletet az oszlop elsõ értékétõl egy sorral feljebb és egy cellával jobbra írjuk be. A további képleteket írjuk az elsõ képlettõl jobbra.
Ha a bemeneti értékek sor irányúak, a képletet írjuk az elsõ értéktõl balra egy cellával az értéksor alá. A további képleteket írjuk az elsõ képlet alá.

Jelöljük ki a képleteket és a helyettesíteni kívánt értékeket tartalmazó cellatartományt.
Válasszuk az Adatok menü Adattábla parancsát.
Hajtsuk végre a megfelelõ mûveletet:
Ha az adattábla oszlopirányú, a bemeneti cella hivatkozását (cellahivatkozás: A munkalapcella helyét kijelölõ koordinátapár. A B oszlop és a 3. sor találkozásánál lévõ cella hivatkozása például B3.) írjuk az Oszlopértékek bemeneti cellája mezõbe.
Ha az adattábla sor irányú, a bemeneti cella hivatkozását írjuk a Sorértékek bemeneti cellája mezõbe.

[KoXaMan]

Idézet: Delila - Dátum: 2009. jan. 8., csütörtök - 16:45

KoXaMan

Itt a makró, amit ígértem:

Sub BC_oszlop()
    For sor = 1 To Range("B65536").End(xlUp).Row
        szöveg = Cells(sor, 2): szöveg_b = ""
        'B oszlop
        For betü = Len(szöveg) - 1 To 1 Step -1
            If Mid(szöveg, betü, 1) <> "(" Then
                szöveg_b = Mid(szöveg, betü, 1) & szöveg_b
            Else
                Cells(sor, 2) = szöveg_b: Exit For
            End If
        Next
        'C oszlop
        szöveg = Cells(sor, 3)
        For betü = Len(szöveg) - 1 To 1 Step -1
            If Asc(Mid(szöveg, betü, 1)) > 47 And Asc(Mid(szöveg, betü, 1)) < 58 Then
                Cells(sor, 3) = Left(szöveg, betü) & ".": Exit For
            End If
        Next
    Next
End Sub

köszi szépen rácuppanok

[Delila]

Idézet: KoXaMan - Dátum: 2009. jan. 8., csütörtök - 20:35

köszi szépen rácuppanok

Most vettem észre, hogy kérted a pontok átírását szóközre. Azzal majd holnap egészítem ki.

[Delila]

KoXaMannak

Itt a kiegészített makró.

Sub BC_oszlop()
    For sor = 1 To Range("B65536").End(xlUp).Row
        szöveg = Cells(sor, 2): szöveg_b = ""
        
       'B oszlop
        For betü = Len(szöveg) - 1 To 1 Step -1
           If Mid(szöveg, betü, 1) <> "(" Then
               szöveg_b = Mid(szöveg, betü, 1) & szöveg_b
           Else
               Cells(sor, 2) = szöveg_b: Exit For
           End If
        Next
        
        'C oszlop
        szöveg = Cells(sor, 3): szöveg_b = ""
        For betü = Len(szöveg) - 1 To 1 Step -1
           If Asc(Mid(szöveg, betü, 1)) > 47 And Asc(Mid(szöveg, betü, 1)) < 58 Then
               szöveg_b = Left(szöveg, betü): Exit For
           End If
        Next
        Cells(sor, 3).Select
        Selection.Value = szöveg_b
        Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
        Selection.Value = Selection.Value & "."
    Next
End Sub

[FragMaster]

Idézet: Root_Kiskacsa - Dátum: 2009. jan. 8., csütörtök - 20:13

F1 rulez! :Ð

Mondom elmélet megvan, ez oké mégsem segít, mert nem az jön ki aminek kéne

Szerkesztette: FragMaster 2009. 01. 08. 22:59 -kor

[KoXaMan]

Idézet: Delila - Dátum: 2009. jan. 8., csütörtök - 22:04

KoXaMannak

Itt a kiegészített makró.

Sub BC_oszlop()
    For sor = 1 To Range("B65536").End(xlUp).Row
        szöveg = Cells(sor, 2): szöveg_b = ""
        
       'B oszlop
        For betü = Len(szöveg) - 1 To 1 Step -1
           If Mid(szöveg, betü, 1) <> "(" Then
               szöveg_b = Mid(szöveg, betü, 1) & szöveg_b
           Else
               Cells(sor, 2) = szöveg_b: Exit For
           End If
        Next
        
        'C oszlop
        szöveg = Cells(sor, 3): szöveg_b = ""
        For betü = Len(szöveg) - 1 To 1 Step -1
           If Asc(Mid(szöveg, betü, 1)) > 47 And Asc(Mid(szöveg, betü, 1)) < 58 Then
               szöveg_b = Left(szöveg, betü): Exit For
           End If
        Next
        Cells(sor, 3).Select
        Selection.Value = szöveg_b
        Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
        Selection.Value = Selection.Value & "."
    Next
End Sub

köszi szépen jól müködik egyenlõre csak annyi van hogy egy hibát vét sajnos én nem irtam le pontosan szoval

ami be csak az évszám a szám ott semmi gond
tehát ahol igy : szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg-kontur
de ahol

szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg.51-kontur
vagy
szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg-kontur1
vagy
szöv.eg.ek.mondatok.1987.magyar.szöveg.230.szöveg-kontur
vagy
szöv.eg.ek.mondatok.magyar.szöveg.szöveg-kontur

ennyi de amugy jo igy is rengeteget, de ez mar bonyolult mondjuk az eddigi is az volt macrohoz nem értek de köszi mégegyszer hogy segítettel

Szerkesztette: KoXaMan 2009. 01. 08. 23:06 -kor

[KoXaMan]

rájöttem hogy elhetne megoldni az éjjeli hozzá szolásom bonyolultságát kikerülve picit. Tehát csak annyi hogy hogy ahol a . kat veszem ki a szavakbol hogy lehet átírni tehát meg egy ilyen kéne a next után csak ott
a Replacement:="" lenne  és a Replace What:="kontur";"230"; vagy nem tudom hogy kell többet beszurni
"    Next
    Cells(sor, 3).Select
    Selection.Value = szöveg_b
    Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Value = Selection.Value & "

illetve az meg jo lenne kiegészítésnek a

    'C oszlop
    szöveg = Cells(sor, 3): szöveg_b = ""
    For betü = Len(szöveg) - 1 To 1 Step -1
          If Asc(Mid(szöveg, betü, 1)) > 47 And Asc(Mid(szöveg, betü, 1)) < 58 Then
              szöveg_b = Left(szöveg, betü): Exit For
          End If
-be hogy ha nem talál benne számot akkor hagyja békén
köszi elõre is

[Delila]

Idézet: KoXaMan - Dátum: 2009. jan. 8., csütörtök - 23:01

egyenlõre csak annyi van hogy egy hibát vét sajnos én nem irtam le pontosan szoval

ami be csak az évszám a szám ott semmi gond
tehát ahol igy : szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg-kontur
de ahol
szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg.51-kontur
vagy
szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg-kontur1
vagy
szöv.eg.ek.mondatok.1987.magyar.szöveg.230.szöveg-kontur
vagy
szöv.eg.ek.mondatok.magyar.szöveg.szöveg-kontur

Most próbáljuk meg tisztázni, mire is van szükséged.
Nem kell magyarázó szöveg (Antoine de Saint-Exupéry óta tudjuk, hogy "A beszéd csak félreértések forrása").
Tegyél be egy adatot, pl.
szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg-kontur
alá pedig azt, hogy nézzen ki az átalakítás után, vagyis az elõzõ leírásod alapján
szöv eg ek mondatok 1987.
Nem kötelezõ a fenti kinézet, ha azóta más az elképzelésed, azt írd, ami most kell.

Egy üresen hagyott sor után jöhet a következõ adat, pl. szöv.eg.ek.mondatok.1987.magyar.szöveg.szöveg.51-kontur, alá a kívánt átalakítást bemutató sor... és így tovább.

[KoXaMan]

elkültem emailbe a linket szerintem ez a legjobb és csak akimenet ilyen legyen:

cime évszám. (mûfaj)

[FragMaster]

Nagyon köszönöm az eddigi segítségeket, remélem holnap menni fog a téma

Szépen lassan elkészültem mindennel, egy van amivel nem tudok mit kezdeni, de valószínûleg vagy célértékkereséses vagy solveres, csak nem igazán akar jól kijönni.
Csatolom, hátha valakinek van még erre ideje.

Csatolt fájl:

•  Darab_r.zip (0byte)
  Letöltések:: 18