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

• #8251 Delila_1 veterán bnorci71 #8225

  Új Válasz 2010-09-23 12:30:18 #8251

  Ú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 bnorci71 #8225 üzenetére

  Tényleg elsiklottunk a régi kérdésed fölött.

  A laphoz kell rendelned egy makrót -> lapfülön jobb klikk, Kód megjelenítése. A képernyő jobb oldalán kapott üres lapra másold be:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 28 And Target.Row >= 2 And Target.Row < 15 And _
  Target.Column Mod 2 <> 0 Then
  Range("A1:AI14").Sort Key1:=Range("AI2"), Order1:=xlDescending, Key2:= _
  Range("AH2"), Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, _
  MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
  DataOption2:=xlSortNormal
  End If
  End Sub

• #8250 Delila_1 veterán motinka #8248

  Új Válasz 2010-09-23 10:31:30 #8250

  Ú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 motinka #8248 üzenetére

  Szívesen, örülök, hogy megfelel a célodnak.

• #8245 Delila_1 veterán motinka #8244

  Új Válasz 2010-09-23 07:49:58 #8245

  Ú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 motinka #8244 üzenetére

  Akkor mégis a laphoz kell rendelni a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = "" Then Exit Sub
  If Target.Column = 3 And Target.Value = "W" Then
  Range(Target.Address).Formula = "=IF(A" & Target.Row & "=""SC"",""SC"",""-"")"
  End If
  End Sub

  A "TECHN" és "tipus" névadásokat egy OFSZET függvénnyel átírtam úgy, hogy az érvényesítések legördülőjében mindig annyi adat jelenjen meg, ahány éppen van a két listában - bővítés vagy szűkítés esetén az aktuális adatmennyiséghez igazodnak (Beszúrás/Név/Név megadása).

  A + jel nem jó, mert azt az Excel egy képlet kezdetének érzékeli, helyette W-t tettem, és beírtam a TECHN lista első tagjának, vagyis azt is a legördülőből lehet kiválasztani. Ezt választva a C oszlopba beíródik a képlet, csak az aktuális sorba.

  Fájl

• #8239 Delila_1 veterán biker #8238

  Új Válasz 2010-09-22 19:44:53 #8239

  Ú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 biker #8238 üzenetére

  Mindig új dolgot kérsz! Először két lap volt (az is űrlap), majd 3, más nevekkel, és más oszlopokból akartad kinyerni az adatokat, most a lapnév nem stimmel.
  Amit ooo-nak nézel, az O betű, kettőspont, újabb O betű, a pontosvessző után pedig nulla.
  Próbáld meg eszerint. Ha nem jön össze, küldd el a füzetet. Ígérem, hogy ma bele sem nézek, legfeljebb holnap.

• #8235 Delila_1 veterán motinka #8231

  Új Válasz 2010-09-22 16:41:23 #8235

  Ú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 motinka #8231 üzenetére

  Szia, megjöttem.

  Azért nem működött a makró, mert nem jó helyre tetted. Az adat laphoz rendelted, pedig ezt egy új modulba kellett volna.
  A füzetben Eszközök/Makró/Visual Basic Editor (vagy ezek helyett Alt+F11). Bejön a VBE. Bal oldalon kiválasztod a füzetedet, Insert menü, Module. A jobb oldalon kapott üres lapra kellett volna bemásolni.
  Közben az is kiderült a füzetedből, hogy a C oszlopot szövegként formáztad az általános formátum helyett. A makró első sora ezért

  Columns("C:C").NumberFormat = "General"

  kell legyen, mert az előállított függvény sem működne szövegként. Elküldöm a címedre a módosított fájlt.

  Delila

• #8234 Delila_1 veterán ro_bert17 #8232

  Új Válasz 2010-09-22 16:30:36 #8234

  Ú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 ro_bert17 #8232 üzenetére

  Tudtommal 256 lap lehet maximum egy füzetben.

• #8228 Delila_1 veterán motinka #8223

  Új Válasz 2010-09-22 07:13:58 #8228

  Ú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 motinka #8223 üzenetére

  Csak késő délután tudok ránézni, de addig biztosan kapsz választ.
  Nem szokás 1 cellába érvényesítést, és egyéb feltételt is betenni.

• #8226 Delila_1 veterán biker #8224

  Új Válasz 2010-09-22 07:05:10 #8226

  Ú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 biker #8224 üzenetére

  Itt már 3 lapon dolgozunk. Remélem, most már jól írtad le a feltételeket. A "kepek" lap A1 cellájának a képlete

  =INDIRECT("importsql!A"&MATCH(termekek!A2;importsql!J:J;0))

• #8221 Delila_1 veterán mr.nagy #8219

  Új Válasz 2010-09-21 19:23:11 #8221

  Ú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 mr.nagy #8219 üzenetére

  Miért nem jó a körlevél? Ahhoz is tudsz Excel adatokat csatolni.
  Az Excelben egyszerre csak 1 űrlapot tudsz kinyomtatni, azt, amelyiknek az adatai éppen szerepelnek az adatlapon.

  Az elkészített sablonba így tudod bekérni az adatokat (pl.):
  =AdatokatTartalmazóLap!B5

• #8220 Delila_1 veterán biker #8218

  Új Válasz 2010-09-21 19:17:42 #8220

  Ú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 biker #8218 üzenetére

  Úgy gondolom, hogy az sqlimport és a termekek nem tábla, hanem egy-egy lap. Ha így van, az sqlimport lap A1 cellájának a képlete:
  
  =INDIRECT("termekek!A"&MATCH(O1;termekek!O:O;0))

• #8217 Delila_1 veterán Fboy #8216

  Új Válasz 2010-09-21 15:52:12 #8217

  Ú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 Fboy #8216 üzenetére

  Lehet, az zavart meg, hogy az előző válaszomnál nem figyeltem a megjelenést, és benne maradtak a formázásra vonatkozó, szögletes zárójelek között lévő M, és a zárójelben lévő C.
  Azok elhagyásával működik a makró.
  A diagram is jó megoldás.

• #8215 Delila_1 veterán Fboy #8214

  Új Válasz 2010-09-21 15:16:46 #8215

  Ú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 Fboy #8214 üzenetére

  Kicsit kibővítve az előző:

  [M](C)Sub Nagysag()
  Dim a As Integer
  Dim nev As String
  
  For a = 2 To 13
  nev = "Oval " & a
  ActiveSheet.Shapes(nev).Select
  With Selection
  .ShapeRange.Height = Cells(a, 2) / 50
  .ShapeRange.Width = Cells(a, 2) / 50
  .Characters.Text = Cells(a, 1) & Chr(10) & Cells(a, 2) & " MFt"
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .ReadingOrder = xlContext
  .Orientation = xlHorizontal
  .Characters.Font.Size = 6
  End With
  Next
  End Sub(/C)[/M]

• #8213 Delila_1 veterán Fboy #8211

  Új Válasz 2010-09-21 14:48:55 #8213

  Ú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 Fboy #8211 üzenetére

  Makróval megoldható.
  Beszúrtam egy térképet, aminek az Excel automatikusan a Kép 1 nevet adta. Utána elhelyeztem a térképen 12 kört, amiknek a neve Ellipszis 2 -Ellipszis 13 lett. A makróban Oval 2 - Oval 13 néven kell rájuk hivatkozni.
  Az első kör a piros, az óramutató járásával ellenkező irányban helyeztem el a többit.

  Makró:
  Sub Nagysag()
  Dim a As Integer
  Dim nev As String
  
  For a = 2 To 13
  nev = "Oval " & a
  ActiveSheet.Shapes(nev).Select
  Selection.ShapeRange.Height = Cells(a, 2) / 80
  Selection.ShapeRange.Width = Cells(a, 2) / 80
  Next
  End Sub

  Kép:
  

  Szerk.: a Cells(a,2)/80 helyett olyan osztót adj, ami egy jó méretet ad az ábrán.

• #8210 Delila_1 veterán motinka #8209

  Új Válasz 2010-09-21 12:16:44 #8210

  Ú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 motinka #8209 üzenetére

  Sub SC()
  Range("Y1:Y2000") = "=IF(C1=""SC"",""SC"",""-"")"
  End Sub

• #8208 Delila_1 veterán biker #8207

  Új Válasz 2010-09-21 08:52:24 #8208

  Ú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 biker #8207 üzenetére

  Pl. a Hol.van és Indirekt függvényekkel lehet megoldani.
  
  =INDIREKT("A"&HOL.VAN("keresett_szöveg";O:O;0))
  
  A kérdésedből nem derült ki, milyen nyelvű Excelt használsz. Ímé angolul:
  
  =INDIRECT("A"&MATCH("keresett_szöveg";O:O;0))

• #8199 Delila_1 veterán biker #8197

  Új Válasz 2010-09-20 11:48:25 #8199

  Ú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 biker #8197 üzenetére

  

• #8195 Delila_1 veterán biker #8191

  Új Válasz 2010-09-20 07:17:52 #8195

  Ú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 biker #8191 üzenetére

  =b!I2&" "&b!G2&" default"

• #8194 Delila_1 veterán bnorci71 #8190

  Új Válasz 2010-09-20 07:17:13 #8194

  Ú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 bnorci71 #8190 üzenetére

  Szívesen, szólj, ha elakadsz.

• #8187 Delila_1 veterán szjoci #8185

  Új Válasz 2010-09-19 11:41:50 #8187

  Ú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 szjoci #8185 üzenetére

  Nézd meg ezt és az előzményeit.

• #8180 Delila_1 veterán Oly #8176

  Új Válasz 2010-09-17 17:13:31 #8180

  Ú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 Oly #8176 üzenetére

  Egy egyszerű makró:

  Sub IgenNem()
  Dim v As String
  
  v = MsgBox("Válassz! Folytatódjon a program?", vbYesNo, "Doboz címe")
  If v = vbNo Then Exit Sub
  MsgBox "Itt folytatódik a program"
  End Sub

• #8164 Delila_1 veterán m.zmrzlina #8163

  Új Válasz 2010-09-16 19:50:16 #8164

  Ú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 m.zmrzlina #8163 üzenetére

  Írj egy makrót a cserére, tegyél ki hozzá egy gombot. Amelyik gépen szükség van a cserére, megnyomják, a másikon nem.

  A másik fórumon, ahol feltetted ezt a kérdést, már leírtam ugyanezt az választ.

• #8148 Delila_1 veterán mrmrg #8147

  Új Válasz 2010-09-14 15:53:38 #8148

  Ú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 mrmrg #8147 üzenetére

  Szúrj be egy sort az első elé. Az F1-be és a G1-be adj egy-egy címet. Jelöld ki a két cellát, Data/ Autofilter.
  Kapsz egy-egy nyilacskát az F1-ben és a G1-ben, az utóbbi legördülőjében jelöld ki a nullát.
  Az F oszlop látható celláit kijelölöd, és átmásolod egy másik lapra. Ezután az F és G oszlopokat kitörölheted.

• #8146 Delila_1 veterán mrmrg #8145

  Új Válasz 2010-09-14 15:39:14 #8146

  Ú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 mrmrg #8145 üzenetére

  Eszerint angol nyelvű Exceled van. Akkor a képlet:
  =COUNTIF(A:A,F1)

• #8144 Delila_1 veterán mrmrg #8143

  Új Válasz 2010-09-14 14:47:01 #8144

  Ú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 mrmrg #8143 üzenetére

  Vidd be egy oszlopba 1-től 5000-ig a számokat. Legyen a példában ez az F oszlop.
  A G1 képlete: =darabteli(a:a;f1)
  Lemásolod. Ahol a G oszlop 0 értéket ad, a vele azonos sorban lévő F cella mutatja az A oszlop hiányzó elemét.

• #8141 Delila_1 veterán scott_free #8138

  Új Válasz 2010-09-14 11:18:32 #8141

  Ú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 scott_free #8138 üzenetére

  Igen, minden gépen be kell kapcsolni, másképp a makró nem ismeri fel a függvényt.
  Makró nélkül is érdemes bekapcsolni, sok új függvényt biztosít.

• #8140 Delila_1 veterán Abi8211 #8139

  Új Válasz 2010-09-14 11:16:58 #8140

  Ú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 Abi8211 #8139 üzenetére

  Egy üres cellába beírsz egy egyest - ez szám, vagy általános formátumú legyen. Másolod a cellát, kijelölöd a rosszul formázott tartományt, jobb klikk, Irányított beillesztés, bejelölöd az Érték-, és a Szorzás választókat.

• #8130 Delila_1 veterán scott_free #8129

  Új Válasz 2010-09-12 08:21:29 #8130

  Ú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 scott_free #8129 üzenetére

  Szívesen.

• #8128 Delila_1 veterán scott_free #8125

  Új Válasz 2010-09-12 07:30:59 #8128

  Ú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 scott_free #8125 üzenetére

  Közben rájöttem. A képlet a forrásnál =OFSZET($F$1;0;0;11-A1;1)

  

• #8127 Delila_1 veterán scott_free #8125

  Új Válasz 2010-09-12 07:25:34 #8127

  Ú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 scott_free #8125 üzenetére

  Nem egészen értem, hogy jött ki az A1=3-ból az érvényesítés 1-8 listája.
  Beteszek egy képet, ahol a megjeleníthető értékek az F1:F10 tartományvan vannak, és az A1 értéke adja a legördülő lista utolsó elemét.
  Az érvényesítésben a forrás képlete: =OFSZET($F$1;0;0;A1;1)

  

• #8124 Delila_1 veterán Kobe #8123

  Új Válasz 2010-09-11 19:19:17 #8124

  Ú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 Kobe #8123 üzenetére

  "nem a pivot része, csak a pivotnak megfelelő sorba mellév an írva egy megjegyzés"

  Akkor más a helyzet. A kimutatásokat másold egy lapra egymás alá, értékként beillesztve, mert a pivotokból nem engedi az Excel a sortörlést. Mivel nem írtad, melyik oszlopokban vannak a billentyűzetről – vagy érvényesítésből – bevitt megjegyzések, önhatalmúlag a H és I oszlopokba tettem (8. és 9. oszlop). Ezeket írd át a makróban a megfelelőkre.

  Sub DelRow()
  Dim sor As Integer, usor As Integer
  
  usor = Range("A50000").End(xlUp).Row
  
  For sor = usor To 2 Step -1
  If Cells(sor, 8) = "" And Cells(sor, 9) = "" Then Rows(sor).EntireRow.Delete
  Next
  End Sub

• #8122 Delila_1 veterán Kobe #8120

  Új Válasz 2010-09-11 16:06:06 #8122

  Ú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 Kobe #8120 üzenetére

  Ez a makró az A oszlopban A1-től figyeli, van-e megjegyzés. Ha nincs, törli a sort.

  Sub DelRow()
  Dim sor As Integer
  
  sor = 1
  Do While Cells(sor, 1) <> ""
  If Range(Cells(sor, 1).Address).Comment Is Nothing Then
  Rows(sor).EntireRow.Delete
  sor = sor - 1
  End If
  sor = sor + 1
  Loop
  End Sub

  Az A helyett 2 helyen a Cells(sor,1)-ben írd át az 1-et az oszlopod sorszámára. Ha nem az első sortól akarod a vizsgálatot végrehajtani, a sor=1-et írd át.
  A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés.

• #8121 Delila_1 veterán scott_free #8114

  Új Válasz 2010-09-11 15:22:59 #8121

  Ú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 scott_free #8114 üzenetére

  Meg lehet oldani a két "pöttyöt" is, de sokkal egyszerűbb az érvényesítés.

  A cellán állva (vagy több cellát kijelölve, ha többe is be akarod tenni a két érték közüli válsztás lehetőségét), Adatok/Érvényesítés. A Beállítások fülön a Megengedve legördülőből a Listát választod, a Forráshoz beírod a két lehetőséget, pontosvesszővel elválasztva.

  Nézd meg a Figyelmeztető üzenet, és a Hibajelzés füleket is, egyik kiállítása sem kötelező.

• #8119 Delila_1 veterán scott_free #8117

  Új Válasz 2010-09-11 15:12:47 #8119

  Ú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 scott_free #8117 üzenetére

  Minden feladatra van több megoldás.

  A C1 képlete: =indirekt(C1&1). A C1 cella adja az A, vagy B értéket, az & jellel hozzáfűzött 1-es az első sort.

  Oszlop átmozgatása: kijelölöd az F oszlopot, a bal széle fölé állsz az egér mutatójával, míg kereszt alakú lesz nyilakkal a 4 végén. A bal gombot nyomva tartva húzod balra, mikor elértél az A oszlop fölé, megnyomod a Shift billentyűt, és felereszted az egér bal gombját.

• #8113 Delila_1 veterán bnorci71 #8110

  Új Válasz 2010-09-11 07:20:06 #8113

  Ú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 bnorci71 #8110 üzenetére

  A kettősponra: a cellaformázásnál egyéni kategória, a formátumkód 0":" az első oszlopokban.

• #8109 Delila_1 veterán Fire/SOUL/CD #8108

  Új Válasz 2010-09-10 20:27:59 #8109

  Ú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 Fire/SOUL/CD #8108 üzenetére

  Az Outlook Express-t használom. Egyszerűen láthatatlanná váltak a címek (amiket nem a C meghajtón tárolok), de megvannak. Rájuk tudok keresni, és néhány kattintással ki tudom találni az ismerősök levélcímét. A bejövőknél az általam megadott nevet mutatja, nem az e-mail címet.
  Ha behívom a Címjegyzéket, azt lódítja, hogy nincs egy darab sem.
  Már csináltam egy rendszer-visszaállítást, az sem segített. Azt hiszem, marad a leradírozás, és újra telepítés.

• #8107 Delila_1 veterán zsotesz81 #8106

  Új Válasz 2010-09-10 20:20:38 #8107

  Ú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 zsotesz81 #8106 üzenetére

  Nekem is!
  Eltűntek a címeim a levelező programomból. Azzal szenvedek.

• #8105 Delila_1 veterán zsotesz81 #8104

  Új Válasz 2010-09-10 20:10:40 #8105

  Ú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 zsotesz81 #8104 üzenetére

  Egy do-loop ciklussal végignézed a B oszlop tagjait az utolsó sorig. Ha a cella értéke "Resolved", akkor a másolás helye az ofszet(0,1) nevű lap. Innen egy belső do-loop ciklussal menj mindig a következő "Resolved"-ig, és ebben a belső ciklusban legyen a számok átírása az aktuális ország lapjára.
  Biztos finomítani kell rajta.

• #8101 Delila_1 veterán zsotesz81 #8100

  Új Válasz 2010-09-10 19:37:41 #8101

  Ú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 zsotesz81 #8100 üzenetére

  Ha már megadtad a feltételben, hogy szám esetén másoljon, mi szükség van a másik két feltételre?

  Sheets("data").Select
  For b = 1 To 15
  If IsNumeric(Cells(b, 2)) = True Then
  oszlop = Worksheets("result").Range("IV1").End(xlToLeft).Column + 1
  Worksheets("result").Cells(1, oszlop) = Cells(b, 2)
  End If
  Next

• #8096 Delila_1 veterán Nowhere #8095

  Új Válasz 2010-09-10 17:33:24 #8096

  Ú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 Nowhere #8095 üzenetére

  Szívesen.

• #8094 Delila_1 veterán Abi8211 #8089

  Új Válasz 2010-09-10 17:25:12 #8094

  Ú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 Abi8211 #8089 üzenetére

  Az xls kiterjesztésből látom, hogy a 2003-as verziót használod. Ha magyar nyelvű, akkor működnie kell, ahogy leírtam. Angol nyelvű esetén az INDIREKT helyett INDIRECT-et írj.

• #8092 Delila_1 veterán Nowhere #8090

  Új Válasz 2010-09-10 17:14:15 #8092

  Ú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 Nowhere #8090 üzenetére

  Szúrj be egy oszlopot az első elé. A mellékelt kép megmutatja, mit tegyél.

  

  Már javítok is. Beírtam a megjegyzést, utána töröltem a két táblázat között egy oszlopot.
  A H3 képlete helyesen
  =FKERES(F3& " " & G3;A:D;4;0)

• #8086 Delila_1 veterán Kobe #8085

  Új Válasz 2010-09-10 15:03:31 #8086

  Ú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 Kobe #8085 üzenetére

  Listaként kezeld az adataidat, akkor a mindenkori adatmennyiséget veszi figyelembe a kimutatás.
  2003-ban Adatok/Lista. A 2007-et nem tudom most megnézni.

• #8081 Delila_1 veterán Abi8211 #8079

  Új Válasz 2010-09-09 15:33:57 #8081

  Ú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 Abi8211 #8079 üzenetére

  Egy egyszerűbb megoldás az A oszlopra:
  Beírod az A1-be a kezdő dátumot 2009.01.01 formában. Ezt lemásolod, ameddig kell, majd kijelölve az oszlopot, a csere funkcióval minden pontot kicserélsz alsó kötjelre. Ezután jöhet a két képlet, amit az előbb ajánlottam.

• #8080 Delila_1 veterán Abi8211 #8079

  Új Válasz 2010-09-09 15:24:28 #8080

  Ú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 Abi8211 #8079 üzenetére

  A1-be beírod: 2009_01_01
  Ezt szövegként értelmezi az Excel. Mikor lemásolod (lehúzod), az utolsó számjegyet növeli eggyel.
  B1-> ="["& A1&"_DALY_REPORT.xls]TEMP!$F$9"
  C1 (vagy ahova be akarod tenni a hivatkozást) -> =INDIREKT(B1)

  Szerkesztés
  Amire figyelned kell: az A oszlopban a 2009_01_31 után 2009_01_32 következik, a hónapok utolsó napja után át kell írnod a hónapot és napot.

• #8066 Delila_1 veterán mr.nagy #8063

  Új Válasz 2010-09-08 08:45:48 #8066

  Ú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 mr.nagy #8063 üzenetére

  Fel akartam tölteni a módosított füzetet, de valahogy nem jött össze.
  
  A képletek:
  
  O9 =ÁTLAG(C9:M9)
  Q9 =DARABTELI(C9:M9;">" & O9+2)
  R9 =SZUMHA(C9:M9;">" & O9+2;C9:M9)
  S9 =DARABTELI(C9:M9;"<" & O9-1)
  T9 =SZUMHA(C9:M9;"<" & O9-1;C9:M9)
  U9 =DARAB(C9:M9)-Q9-S9
  V9 =SZUM(C9:M9)-R9-T9

• #8038 Delila_1 veterán Tier555 #8035

  Új Válasz 2010-09-01 16:56:27 #8038

  Ú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 Tier555 #8035 üzenetére

  Kitehetnéd a füzeteidet néhány adattal valami elérhető helyre, akkor kiderülne, miért nem talál nálad az Fkeres.
  Lehet, hogy csak az egyik lapon string típusú az ID. Azon lehet segíteni.

  Nézd meg a másik fórumon is a választ, ahol feltetted ugyanezt a kérdést, ott írtam erről.

• #8034 Delila_1 veterán Tier555 #8033

  Új Válasz 2010-08-31 15:00:50 #8034

  Ú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 Tier555 #8033 üzenetére

  Az FKERES függvénnyel oldhatod meg.

  A leírásból nekem nem nagyon derül ki, melyik adatod hol van. Készítettem 2 füzetet, Egyik.xls, és Másik.xls néven.
  Az Egyik A oszlopába írtam stringeket, amik az ID-ket képviselik, a 6. (F) oszlopba pedig számokat. A Másik füzet A oszlopába véletlenszerű elrendezéssel betettem az előző ID-ket.
  A Másik füzet F2 képlete (címsort feltételezve)

  =FKERES(A2;'[Egyik.xls]Munka1'!$A:$F;6;HAMIS)

  Nézd meg a súgóban az Fkeres függvényt, és a fenti képletet, ha más az oszlopaid elrendezése, a kettő együtt biztosan segít.

• #8031 Delila_1 veterán iwu #8030

  Új Válasz 2010-08-31 13:05:41 #8031

  Ú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 iwu #8030 üzenetére

  Rögzíted egy makróban onnan kezdve, hogy a kérdéses lapot átmásolod egy új fájlba, csatolva elküldöd a megfelelő címekre. Az ikonok közé kiteszel egy "Egyedi gomb"-ot a Makrók kategóriából, és hozzárendeled a rögzített makródat.

• #8028 Delila_1 veterán iwu #8026

  Új Válasz 2010-08-31 12:36:33 #8028

  Ú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 iwu #8026 üzenetére

  Nézd meg a testreszabásnál

  

  ezeket az ikonokat, és alkalmazd azt, amelyik megfelel. Egyikkel szöveges üzenetet küldhetsz, a másikkal az aktuális lap képét küldheted, a harmadikkal a teljes fájlt csatolohatod a levélhez. 2003-as verzió.

• #8018 Delila_1 veterán basaharc502 #8017

  Új Válasz 2010-08-27 12:52:14 #8018

  Ú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 basaharc502 #8017 üzenetére

  Szívesen.

• #8016 Delila_1 veterán Oly #8015

  Új Válasz 2010-08-26 19:37:31 #8016

  Ú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 Oly #8015 üzenetére

  Szívesen.

• #8014 Delila_1 veterán Oly #8012

  Új Válasz 2010-08-26 19:32:22 #8014

  Ú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 Oly #8012 üzenetére

  Sub Lapok()
  Dim sheetnev As String
  sheetnev = Cells(1, 10)
  On Error Resume Next
  Sheets(sheetnev).Select
  If Err.Number <> 0 Then
  Worksheets.Add.Name = sheetnev
  Sheets(sheetnev).Cells(3, 1) = 1
  End If
  On Error GoTo 0
  End Sub

• #8013 Delila_1 veterán Oly #8010

  Új Válasz 2010-08-26 19:29:48 #8013

  Ú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 Oly #8010 üzenetére

  Ha a Date függvényt használod a makróban, nincs szükség a J1-re - legalábbis a lapnévhez nem kell.

• #8011 Delila_1 veterán Oly #8010

  Új Válasz 2010-08-26 19:23:07 #8011

  Ú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 Oly #8010 üzenetére

  A lapnév mindig string típusú. A #8005-ben ezért dimenzionáltam.

  Dim sheetnev As String

  Kipróbáltam, ha a J1-ben van a MA() függvény, bár ott az alapbeállítási formában (2010.08.26) jelenik meg, a létrehozott új lap neve ponttal a végén születik. Újabb futtatásnál a "pontos" lap lesz aktív.

• #8009 Delila_1 veterán Oly #8008

  Új Válasz 2010-08-26 19:16:34 #8009

  Ú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 Oly #8008 üzenetére

  Átírtad a sheetsnev=Date sort? #8006

• #8006 Delila_1 veterán Delila_1 #8005

  Új Válasz 2010-08-26 18:44:26 #8006

  Ú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 Delila_1 #8005 üzenetére

  Nem figyeltem, hogy a makró a J1-ből veszi a lapnevet. Akkor a sheetnev=Date helyett sheetnev=cells(1,10) kerül, és a lapnevek végére sem kell pont.

• #8005 Delila_1 veterán Oly #8003

  Új Válasz 2010-08-26 18:35:58 #8005

  Ú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 Oly #8003 üzenetére

  A dátum végére is tegyél pontot a lapneveknél, mert a VB saját változója (Date) is így írja.

  Sub Lapok()
  Dim sheetnev As String
  sheetnev = Date
  On Error Resume Next
  Sheets(sheetnev).Select
  If Err.Number <> 0 Then Worksheets.Add.Name = sheetnev
  On Error GoTo 0
  End Sub

• #8004 Delila_1 veterán DopeBob #7999

  Új Válasz 2010-08-26 18:20:18 #8004

  Ú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 DopeBob #7999 üzenetére

  Fire most nem ér rá, azért szállok be a megoldásba.
  Vegyük, hogy az első lapon vannak a szűrt adataid, a Munka2 lapon lesz a "népszámlálás", ott is a B1 cellában.

  Sub MennyiAzAnnyi()
  Sheets(2).Range("A:A") = ""
  Sheets(1).Range("A:A").Copy Destination:=Sheets(2).Range("A1")
  
  Sheets(2).Range("A2").Select
  Range(Selection, Selection.End(xlDown)).Select
  
  ActiveWorkbook.Names.Add Name:="ter", RefersTo:="=Munka2!" & Selection.Address
  Range("B1").FormulaArray = "=SUM(1/COUNTIF(ter,ter))"
  End Sub

• #8001 Delila_1 veterán basaharc502 #8000

  Új Válasz 2010-08-26 17:30:20 #8001

  Ú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 basaharc502 #8000 üzenetére

  Ilyesmirere gondoltál?

• #7997 Delila_1 veterán basaharc502 #7996

  Új Válasz 2010-08-26 06:35:57 #7997

  Ú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 basaharc502 #7996 üzenetére

  Tedd ki valahova a fájlt, vagy azt a részét, ahol az említett adatok vannak. Hamis értékekkel is jó.

• #7995 Delila_1 veterán basaharc502 #7990

  Új Válasz 2010-08-25 17:04:25 #7995

  Ú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 basaharc502 #7990 üzenetére

  Készíts kimutatást, ahol a sorok tartalmazzák a dátumot. Ebből csinálj grafikont.

• #7981 Delila_1 veterán motinka #7980

  Új Válasz 2010-08-24 16:28:24 #7981

  Ú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 motinka #7980 üzenetére

  Szivi.

• #7979 Delila_1 veterán motinka #7978

  Új Válasz 2010-08-24 15:55:19 #7979

  Ú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 motinka #7978 üzenetére

  Az F5 képlete:
  
  =HA(BAL(D5;2)>="13";D$1+1+IDŐ(ÓRA(E5);PERC(E5);0);D$1+IDŐ(ÓRA(E5);PERC(E5);0))
  
  Ez akkor igaz, ha a nap (aug. 16) a D1 cellában van, ahogy a képen látszik. Ha viszont a B1:F1 között van középen, akkor a képletben a D$1-et írd át B$1-re. A képletet lemásolod a többi adat mellé az F oszlopba, és átmásolod a K oszlopba, meg a többi zárás oszlopba. A formátum ezekben az oszlopokban olyan legyen, ahogy már előbb megadtam.

• #7976 Delila_1 veterán motinka #7975

  Új Válasz 2010-08-24 15:15:55 #7976

  Ú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 motinka #7975 üzenetére

  Meg lehet oldani, de amint az ábra mutatja, a 08.16-án kezdett munka vagy aznap, vagy másnap fejeződik be. Ezt honnan kellene tudnia a képletnek?
  Jól gondolom, ha a munka befejezési ideje 13:30 alatt van, akkor aznap, egyébként másnap van a zárás?

• #7974 Delila_1 veterán motinka #7973

  Új Válasz 2010-08-24 14:34:35 #7974

  Ú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 motinka #7973 üzenetére

  Az időt (12:15) valahol távolabb vidd be, a dátumot és időt egyesítő cellát oda, ahol a FŐNÖK szeretné látni.

• #7972 Delila_1 veterán motinka #7971

  Új Válasz 2010-08-24 14:27:05 #7972

  Ú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 motinka #7971 üzenetére

  Csak egy harmadik cellában tudod megjeleníteni a dátumot az idővel együtt.
  A1 a dátum, B1 az idő, minegyik úgy, ahogy megadtad. Egy harmadik cellába jön a képlet:
  
  =A1+IDŐ(ÓRA(B1);PERC(B1);0)
  Ennek a formátumát az egyéni kategóriában adhatod meg: éééé.hh.nn. ó:pp

• #7970 Delila_1 veterán Fire/SOUL/CD #7969

  Új Válasz 2010-08-21 06:01:55 #7970

  Ú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 Fire/SOUL/CD #7969 üzenetére

  Ezt nem tudtam, köszi.

• #7968 Delila_1 veterán VANESSZA1 #7967

  Új Válasz 2010-08-20 18:22:40 #7968

  Ú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 VANESSZA1 #7967 üzenetére

  Akkor jó.

• #7965 Delila_1 veterán Sickboy25 #7963

  Új Válasz 2010-08-17 16:16:00 #7965

  Ú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 Sickboy25 #7963 üzenetére

  Na még egy, hogy biztos legyen a figyelmeztetés.

  Az A1 cellát formázd félkövérre, és piros betűszínre. A laphoz rendeld a nyúlfarknyi makrót (lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben a jobb oldalon kapott üres felületre kell bemásolni).

  Private Sub Worksheet_Activate()
  If Day(Date) < 11 Then
  Cells(1) = 10 - Day(Date) & " nap múlva add le a jelentést"
  Else
  Cells(1) = ""
  End If
  End Sub

  Mikor a lapra lépsz, beírja, vagy 10-e után törli a hátralévő napokat.

• #7964 Delila_1 veterán Sickboy25 #7963

  Új Válasz 2010-08-17 16:03:19 #7964

  Ú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 Sickboy25 #7963 üzenetére

  A feltétel, amit Fire-nek ígértem:
  =HA(NAP(MA())<11;10-NAP(MA()) & " nap van hátra a jelentés leadásáig.";"")

  Ez csak 11-e előtt jelenik meg.

• #7962 Delila_1 veterán Fire/SOUL/CD #7961

  Új Válasz 2010-08-17 15:55:57 #7962

  Ú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 Fire/SOUL/CD #7961 üzenetére

  Azon egy HA függvény segítene, de nem az én megoldásom kell a kérdezőnek.

• #7959 Delila_1 veterán Sickboy25 #7957

  Új Válasz 2010-08-17 15:49:25 #7959

  Ú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 Sickboy25 #7957 üzenetére

  Másképp gondolom, mint Fire.
  Szerintem a "figyelmeztető" cellába ez kell:

  =DÁTUM(ÉV(MA());HÓNAP(MA());10)-MA() & " nap múlva kell leadni a jelentést."

  Azt, hogy mikor küldted az előzőt, írd be egy cellába, és akkor mindig tudod majd.

• #7956 Delila_1 veterán Sickboy25 #7955

  Új Válasz 2010-08-17 15:24:48 #7956

  Ú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 Sickboy25 #7955 üzenetére

  Nem egészen világos. Ki lép be, hova?
  Ha az aktuális dátum (a naptárban) március, akkor íródjon egy cellába március 10-e?
  Melyik legyen az a cella?

• #7952 Delila_1 veterán Fire/SOUL/CD #7951

  Új Válasz 2010-08-15 11:02:59 #7952

  Ú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 Fire/SOUL/CD #7951 üzenetére

  Ez nem helyesírási hiba, a működést hamisítja meg.

• #7950 Delila_1 veterán Fire/SOUL/CD #7949

  Új Válasz 2010-08-15 10:53:09 #7950

  Ú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 Fire/SOUL/CD #7949 üzenetére

  Írd meg nekik. Te szoktad úgyis figyelmeztetni őket a hibákra, hiányosságokra.

• #7948 Delila_1 veterán VANESSZA1 #7947

  Új Válasz 2010-08-15 10:30:03 #7948

  Ú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 VANESSZA1 #7947 üzenetére

  Erre gondolsz?

  

• #7946 Delila_1 veterán zoli03 #7945

  Új Válasz 2010-08-15 09:56:54 #7946

  Ú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 zoli03 #7945 üzenetére

  Szívesen.

• #7944 Delila_1 veterán zoli03 #7943

  Új Válasz 2010-08-15 09:19:48 #7944

  Ú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 zoli03 #7943 üzenetére

  A szöveg.keres függvénybe az idézőjelek közé a szóköz helyett tedd a saját elválasztó jeledet.
  Ha ez egy valahonnan beimportált szöveg, akkor egyszerűbb a "Szövegből oszlopok" funkció alkalmazása.
  A szétbontandó cellák mellett jobbra legyen annyi üres oszlop, ahány részből a cellák összetevődnek. Kijelölöd a szétbontandó cellákat, Adatok/Szövegből oszlopok. Tagolt, Tovább, a Határoló jeleknél kiveszed a pipá(ka)t, és az Egyéb kategóriába beírod a @, vagy # jelet, Befejezés.

• #7942 Delila_1 veterán zoli03 #7941

  Új Válasz 2010-08-15 06:38:03 #7942

  Ú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 zoli03 #7941 üzenetére

  Kicsit kacifántos, de megoldható.
  A cella, ami a két értéket tartalmazza, szöveg formátumú legyen. Vegyük, hogy az A1 celláról van szó, és a két számot szóköz választja el.

  A bal oldali részt az
  =BAL(A1;SZÖVEG.KERES(" ";A1)-1)*1

  a jobboldalit az
  =JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1))*1 adja vissza számként.

  Ezek a cellák általános, vagy szám formátumúak legyenek.

• #7940 Delila_1 veterán Fire/SOUL/CD #7938

  Új Válasz 2010-08-14 16:54:11 #7940

  Ú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 Fire/SOUL/CD #7938 üzenetére

  A 2003-as súgójában nem tették ki a $-okat.

• #7937 Delila_1 veterán bandus #7935

  Új Válasz 2010-08-14 07:59:00 #7937

  Ú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 bandus #7935 üzenetére

  Nézd még meg a GYAKORISÁG függvényt. Ha ez nem munkaköri, hanem Exceles feladat, lehet, hogy ezt kérik. Tömbfüggvény, Shift+Ctrl+Enterrel kell bevinni egy területre.

  Szerk:
  Vigyázz, a mintapéldában nem tették ki a $ jeleket a tartományokhoz, azok nélkül hamis eredményt kapsz.

• #7936 Delila_1 veterán bandus #7933

  Új Válasz 2010-08-14 06:37:00 #7936

  Ú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 bandus #7933 üzenetére

  A kimutatásból elkészíted az oszlopdiagramot, utána a Diagram menü Minták almenüjében változtatsz kedved szerint (máshol is lehet).

• #7932 Delila_1 veterán bandus #7928

  Új Válasz 2010-08-13 17:42:48 #7932

  Ú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 bandus #7928 üzenetére

  Szúrj be egy oszlopot az adataid elé. Írd be a százalékokat. A forrásadatoknál "A kategóriatengely (X) feliratai:" rovatban a két oszlopot jelöld be (nálam ez =Munka1!$A$2:$B$21)
  

• #7930 Delila_1 veterán bandus #7922

  Új Válasz 2010-08-13 15:48:07 #7930

  Ú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 bandus #7922 üzenetére

  Nézd meg a #7893-as választ. Alsó értéknek a minimumot, felsőnek a maximumot add meg, utolsó érték a lépésköz. Csakis direkt értéket adhatsz meg, nem lehet így: =min(tartomány)

  Nem otthon vagyok, este megpróbálom kitalálni a választ a diagramos kérdésedre. Azt hiszem, lehet másik X tengelyt felvenni, ahogy másik Y-t is, de nem biztos.

• #7919 Delila_1 veterán Fire/SOUL/CD #7918

  Új Válasz 2010-08-12 19:23:49 #7919

  Ú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 Fire/SOUL/CD #7918 üzenetére

  Jó félórája Shift nélkül próbáltam (ő; ú), azzal nem jött be. Most újra megpróbáltam, mire fel akarja telepíteni az angol nyelvű automatikus javítást.

• #7917 Delila_1 veterán bandus #7915

  Új Válasz 2010-08-12 18:53:16 #7917

  Ú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 bandus #7915 üzenetére

  Kijelölöd a feliratokat, és egyenként azokat, amiket nem akarsz megjeleníteni, DEL.
  Bár ki tudja (Fire), a 2007-nél esetleg van más választási lehetőség is.

• #7916 Delila_1 veterán Fire/SOUL/CD #7914

  Új Válasz 2010-08-12 18:50:24 #7916

  Ú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 Fire/SOUL/CD #7914 üzenetére

  Csak nem esett le a tantusz az Alt+Shift-re.
  Az Ő és Ú a kapcsos zárójeleket adja, nem a szögleteseket. A { az Alt+0123; a } pedig Alt+0125-tel is behozható.

• #7913 Delila_1 veterán Fire/SOUL/CD #7911

  Új Válasz 2010-08-12 18:45:33 #7913

  Ú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 Fire/SOUL/CD #7911 üzenetére

  A bal Alt, és a számbillentyűzeten bepötyögött 091 behozza a [-et.

• #7912 Delila_1 veterán Fire/SOUL/CD #7911

  Új Válasz 2010-08-12 18:41:54 #7912

  Ú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 Fire/SOUL/CD #7911 üzenetére

  Ez nálam nem jön össze.
  Mielőtt kérdeznéd, igen, 2007-es verzióban.

• #7910 Delila_1 veterán bandus #7909

  Új Válasz 2010-08-12 18:33:44 #7910

  Ú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 bandus #7909 üzenetére

  Mert vacak. Vidd be Alt és 091-es kóddal.

  Fire erre azt szokta mondani, hogy telepítsd a javító fájlokat (SP).

• #7908 Delila_1 veterán bandus #7907

  Új Válasz 2010-08-12 17:54:58 #7908

  Ú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 bandus #7907 üzenetére

  Nézd meg a #7803-as hozzászólást.

• #7895 Delila_1 veterán foregister #7894

  Új Válasz 2010-08-07 15:02:56 #7895

  Ú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 foregister #7894 üzenetére

  Szívesen.

• #7893 Delila_1 veterán bandus #7887

  Új Válasz 2010-08-07 08:14:42 #7893

  Ú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 bandus #7887 üzenetére

  Készítesz egy kimutatást, amibe egyetlen oszlopot viszel be, a vízállást. A SOR-, és az ADAT mezőbe is ezt húzod be. Az adatok darabként jelenjenek meg.
  Most rákattintasz a kimutatásban a Vízállás címsorra (már ha így hívják a címsorodat). Adatok/Tagolás és részletek/Csoportba foglalás.

  

  A kép szerint kitöltöd, a 'Mi szerint' értékét a kívánalmaknak megfelelően változtatva.

• #7892 Delila_1 veterán

  Új Válasz 2010-08-07 07:19:49 #7892

  Ú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

  Helyesbítek.

  Az értékek a Z oszlopodban vannak, ezekhez adod hozzá a sor törtrészét. Legyen az AB oszopban a képlet.
  AB2: =Z2+SOR()*0,0001
  
  Az INDEX helyett alkalmazd az INDIREKT függvényt.
  =INDIREKT("H"&HOL.VAN(NAGY(AB:AB;7);AB:AB;0))

• #7891 Delila_1 veterán foregister #7890

  Új Válasz 2010-08-07 06:36:33 #7891

  Ú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 foregister #7890 üzenetére

  Ha jól értem, az a probléma, hogy ha van 3 db 10-es eredményed, bár a NAGY függvény 3-szor találja meg, a HOL.VAN minden esetben az elsőt adja közülük.

  Ezen úgy segíthetsz, hogy az eredményeket tartalmazó oszlop értékeihez egy segédoszlopban hozzáadod a SOR()-nak egy igen kis számú szorzatát (pl. =H2+SOR()*0,0001), ami nem változtatja meg a szám egész értékét. A NAGY és a HOL.VAN függvényekkel ebben az új oszlopban kerestetsz, így pontos találatot érhetsz el.

  Az INDEX függvénybem az INT(HOL.VAN(...)) szerepeljen.

  Erre a módszerre találsz egy példát a #7821-ben.

• #7877 Delila_1 veterán Fire/SOUL/CD #7876

  Új Válasz 2010-08-05 14:08:54 #7877

  Ú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 Fire/SOUL/CD #7876 üzenetére

  

• #7875 Delila_1 veterán Fire/SOUL/CD #7874

  Új Válasz 2010-08-05 13:47:27 #7875

  Ú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 Fire/SOUL/CD #7874 üzenetére

  Ez azt jelenti, hogy semmiképp sem szabad feltenni a 2010-et, még a 2007-en is van mit javítani.

• #7873 Delila_1 veterán Fire/SOUL/CD #7872

  Új Válasz 2010-08-05 12:19:53 #7873

  Ú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 Fire/SOUL/CD #7872 üzenetére

  Van egy sejtésem. A csatolt képről úgy látom, hogy a felt. formázásba bevetted az R1-et is, a képletek pedig R2-től szólnak. Az R1 üresnek látszik, a darab2 függvény a címsorral is számol. Ez okozhat esetleg hibát.

  Még egy hibalehetőség, bár erre biztosan figyelsz: nem fordulhat elő, hogy az R oszlop lentebbi részén maradtak adatok egy előző feltöltésből?

• #7871 Delila_1 veterán Fire/SOUL/CD #7870

  Új Válasz 2010-08-05 11:38:07 #7871

  Ú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 Fire/SOUL/CD #7870 üzenetére

  Tedd át az egészet egy másik lapra. Tudod, előfordulnak hibás lapok az Excelbe.
  Az R2-be egy jóval nagyobb számot írtam, mint a többi, és hibátlanul működik.

• #7868 Delila_1 veterán Fire/SOUL/CD #7867

  Új Válasz 2010-08-05 11:06:56 #7868

  Ú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 Fire/SOUL/CD #7867 üzenetére

  1. Az Excel belső eseményeire írt gépi kódú reakció mindig gyorsabb, mint a VB-s makró.
  2. Valami csak nem jó az adoptálásnál, nálam kiválóan működik. :)
  3. A nagy(r$2:r$500;4) kisebb, mint a nagy(r$2:r$500;3), ezért írtam >nagy(r$2:r$500;4), ill. >nagy(r$2:r$500;6) képleteket.

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