Új hozzászólás Aktív témák

• #6789 Delila_1 veterán Badb0y #6785

  Új Válasz 2010-04-06 08:54:46 #6789

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Badb0y #6785 üzenetére

  Itt van nagybetűsen, és szóközökkel az előbbi.

  Sub tipus_1()
  Dim sor As Integer
  Dim b As Integer
  Dim szoveg As String
  
  Sheets("DB").Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  szoveg = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 4)
  For b = Len(szoveg) To 1 Step -1
  If Mid(szoveg, b, 1) = "/" Then
  Cells(sor, 3) = Mid(szoveg, b + 1)
  Cells(sor, 1).FormulaR1C1 = "=UPPER(SUBSTITUTE(RC[2],""-"","" ""))"
  Exit For
  End If
  Next
  Next
  Columns("A:A").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues
  Columns("C:C").Select
  Selection.ClearContents
  Application.CutCopyMode = False
  Cells(1).Select
  End Sub

• #6788 Delila_1 veterán Badb0y #6785

  Új Válasz 2010-04-06 08:21:44 #6788

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Badb0y #6785 üzenetére

  Nagyon jó, amit Fire írt, de ahhoz, hogy minden laptophoz a saját képe jöjjön be, előbb le kell futtatni az alábbi makrót:

  Sub tipus()
  Dim sor As Integer
  Dim b As Integer
  Dim szoveg As String
  
  Sheets("DB").Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  szoveg = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 4)
  For b = Len(szoveg) To 1 Step -1
  If Mid(szoveg, b, 1) = "/" Then
  Cells(sor, 1) = Mid(szoveg, b + 1)
  Exit For
  End If
  Next
  Next
  End Sub

  Ez a DB lap B oszlopából (URL címekből) előállítja az A oszlopban az egyenként választható típusokat. Igaz, csupa kisbetűs név lesz, nem az eredeti mutatós Dell Adamo 13, hanem dell-adamo-13-laptop.
  Biztosan ki lehetne csicsázni, kérdés, hogy megéri-e. Sok sornál jó hosszú időbe telik.

• #6787 Fire/SOUL/CD félisten Badb0y #6785

  Új Válasz 2010-04-05 20:10:37 #6787

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Badb0y #6785 üzenetére

  Hali!

  Azt hittem jön megoldás, ezért kivártam, de hiába, azért Húsvét van.

  Na akkor ahogy én oldanám meg ezt a feladatot(csak javaslat, nem kötelező betartani)

  Két munkalapom van, Lista és DB névvel.

  # Lista munkalap: "A" oszlopban minden cellán, lenyíló listából választható az adott termék. "B" oszlop üres, de csak azért, hogy a lenyíló menü nyilacskája ne zavarjon be(vizuálisan) "C" oszlopba. "C" oszlopban jelenik meg, a kiválasztott termékhez tartozó link.

  # DB munkalap: "A" oszlopban a termékek, "B" oszlopban a hozzá tartozó link

  Megoldás lépésről-lépésre

  1. DB munkalapon "A" és "B" oszlopok feltöltése adatokkal

  2. DB munkalapon "A" oszlop kijelöl és Tartományként elnevez, esetünkben LAPTOPOK néven: [link]

  3. DB munkalapon "A" és "B" oszlop kijelöl és Tartományként elnevez, esetünkben LAPTOPOK_ES_URL néven(Eljárás ugyanaz mint a 2. pontban)

  4. Lista munkalapon "A" oszlop kijelöl, Adatok csoport/Érvényesítés LENYÍLÓ/Érvényesítés..., többi a képen: [link]

  5. Lista munkalapon C1 cellába beírni a következő képletet
  =HIPERHIVATKOZÁS(FKERES(A1;LAPTOPOK_ES_URL;2;HAMIS);"Kép a termékről")

  És ennyi lenne. (Excel 2007-ben készült)

  Fire.

• #6786 Fire/SOUL/CD félisten Badb0y #6785

  Új Válasz 2010-04-05 16:48:54 #6786

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Badb0y #6785 üzenetére

  Hali!

  Macskaköröm? LOL, na Te jó adattitkosító lennél, mert ebből szerintem senki ebben az életben nem jött volna rá, hogy az macskaköröm.

  Nem írom le a megoldást a kereséssel, mert szerintem, mire ezt a HSZ-t befejezem, Delila_1 vagy Ulrik19 vagy ha benéz "hirtelen" Fehér Mancs akkor addigra már meglesz.

  Egy elvet ecsetelnék röviden, ami nem a kereső fx-re épül, de talán ebből is lehet tanulni valamit. Szóval egy saját függvényt kellene készíteni, ami a laptopok nevéből legyártaná, a linket(URL-t). Pl úgy, hogy a laposok nevéből a szóközöket _ karakterrel helyettesíti, illetve (mivel szerveren vagyunk) ezért kisbetűsre alakítja és ugyanazon sor megfelelő oszlopába beírja. Így ha módosítod a laptop nevét, akkor automatikusan generálódik a letöltési link.
  Persze ennek ez is a hátránya egyben, mert ha módosítani kell a laptop nevén, akkor egyből új fájlnévvel azt fel is kell tölteni a szerverre, a korábbi néven szereplő képet meg törölni(ne foglalja feleslegesen a helyet)

  Persze ez csak egy elv, és csak azért írtam, hogy több szempont alapján és más-más módszerekkel is megoldható egy feladat, mindig mérlegelni kell,(és pontosan tudni), hogy mit akar megvalósítani az ember.

  Na de visszatérve a feladathoz. Ebben a formában a "hagyományos" kereső szolgáltatások "nehézkesen" (vagy talán nem is) alkalmazhatóak, hisz semmi nem utal a laptopok nevére a linkben, még rész sztringet sem lehet keresni, ezért nincs mit megtalálni ebben a formában. (Szerintem)

  Fire.

Új hozzászólás Aktív témák