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

• #12692 Delila_1 veterán poffsoft #12685

  Új Válasz 2012-01-25 07:53:37 #12692

  Ú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 poffsoft #12685 üzenetére

  Azt hiszem, rosszul címezted a kérdést. A változók elnevezéséből úgy látom, Fire foglalkozott a kérdéseddel. Visszalapoztam pár napot, de nem találtam az eredetit.

  MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
  MyFormul$=Right(MyFormul$, Len(MyFormul$)-1)

  Így levághatod a kezdő aposztrófot.

  Másik lapra állás: Sheets("Másik").Select

  Kijelölés megszüntetése másolás után: Application.CutCopyMode = False

  B20-ra állás: Range("B20").Select

• #12653 ArchElf addikt poffsoft #12646

  Új Válasz 2012-01-16 09:01:32 #12653

  Ú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

  

  ArchElf

  addikt

  válasz poffsoft #12646 üzenetére

  Nem kell makró, megoldható concat, len, fkeres függvényekkel (vagy egyszerű hivatkozásokkal, ha a rövidítések olyan sorrendben vannak, mint a nevek).

  AE

• #12569 plaschil aktív tag poffsoft #12565

  Új Válasz 2012-01-11 09:55:13 #12569

  Ú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

  

  plaschil

  aktív tag

  válasz poffsoft #12565 üzenetére

  Találtam egy megoldást:
  1. Korrektúra fül -> tartomány módosításának engedélyezése->Megadás
  Itt kell kijelölni azokat a cellákat, amiket "felmentek" a korlátozás alól, tehát minden cellát kijelölök, amire szeretném, hogy érvényes maradjon a módosítás joga. A felugró ablakban megadok egy nevet, a lényegi rész a tartomány megadása. Ha megadtam -> Ok -> Ok.
  2.Korrektúra fül -> Lapvédelem -> Felugró ablakon Ok.
  Ezután a ki nem jelölt cellákba írni nem tudunk, csak a lapvédelem feloldásával. Természetesen, jelszóval érdemes ezt levédeni, mert a lapvédelmet bárki feloldhatja, aki használja a fájlt. (Vagy csak a tulajdonos? Nem tudom.)
  3. Örülünk.

• #12566 plaschil aktív tag poffsoft #12565

  Új Válasz 2012-01-11 09:21:33 #12566

  Ú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

  

  plaschil

  aktív tag

  válasz poffsoft #12565 üzenetére

  Tartomány kijelölés után a pipa alapból bent van. Ha ráteszem a lapvédelmet, akkor ha módosítani szeretnék, ezt az üzit kapom (bárhol a lapon): [link]
  Tehát levédi az egész lapot, de nekem csak a tartományt kellene.
  (Office 2007)

• #12556 Fire/SOUL/CD félisten poffsoft #12555

  Új Válasz 2012-01-10 15:27:11 #12556

  Ú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 poffsoft #12555 üzenetére

  Ez most csak a példa kedvéért C1 cellával hasonlítja össze az A1:B10 tartományt és egy MsgBox fogja kiírni, hogy hány megegyező van a tartományban. Én egy Command Button-hoz rendeltem most, de természetesen ez már lényegtelen, utólag lehet módosítani a saját kedved szerint.

  Private Sub CommandButton1_Click()
  
  Dim MySrcRange As Range
  Dim MyDestRange As Range
  Dim MyCell As Range
  Dim MyCounter As Integer
  
  Set MySrcRange = Range("C1")
  Set MyDestRange = Range("A1:B10")
  
  MyCounter = 0
  For Each MyCell In MyDestRange
  With MyCell
  If Not IsEmpty(MyCell) And _
  .Value = MySrcRange.Value And _
  .Interior.Color = MySrcRange.Interior.Color And _
  .Font.Color = MySrcRange.Font.Color And _
  .Font.Name = MySrcRange.Font.Name Then MyCounter = MyCounter + 1
  End With
  Next MyCell
  
  Set MySrcRange = Nothing
  Set MyDestRange = Nothing
  
  MsgBox (MyCounter)
  
  End Sub

• #12554 Fire/SOUL/CD félisten poffsoft #12553

  Új Válasz 2012-01-10 14:55:08 #12554

  Ú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 poffsoft #12553 üzenetére

  "Ha lehet, képlettel, nem makróval"
  Csak makróval lehet.

• #12483 Delila_1 veterán poffsoft #12482

  Új Válasz 2012-01-07 14:33:20 #12483

  Ú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 poffsoft #12482 üzenetére

  Szivi. Én is remélem. Ha mégsem jön össze, pontosítasz.

• #12481 Delila_1 veterán poffsoft #12480

  Új Válasz 2012-01-07 14:11:12 #12481

  Ú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 poffsoft #12480 üzenetére

  Makróíráshoz, ami figyeli a bevitel helyét, tudnom kellene, melyik oszlopról van szó, de ezt nem adtad meg. Őszintén szólva az egész leírás kicsit zavaros nekem.

  Írtam egy makrót, ami a 2. laptól (az első lap a januári adatokat tartalmazza) a 12-ig a C2:C30 tartományba beírja az előző lap C2:C30 értékeit hivatkozással. Hátha hasznodra válik.

  Sub keplet()
  Dim lap%
  For lap% = 2 To 12
  Sheets(lap%).Select
  Range("C2:C30") = "=" & Sheets(lap% - 1).Name & "!C2"
  Next
  End Sub

• #12452 Delila_1 veterán poffsoft #12449

  Új Válasz 2012-01-06 08:54:28 #12452

  Ú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 poffsoft #12449 üzenetére

  Az előző lap kódnevét pl. így kaphatod meg:

  lap = ActiveSheet.CodeName
  lap = "Munka" & Right(lap, Len(lap) - 5) - 1
  MsgBox lap

  Nem szerencsés dolog aktív cellára hivatkozni makróban, mert ha véletlenül másik cellára kattintasz a makró indítása előtt, hamis eredményt kapsz.

  Írd le pontosan, mit szeretnél elérni a makróval.

• #12450 poffsoft veterán poffsoft #12449

  Új Válasz 2012-01-05 23:21:41 #12450

  Ú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

  

  poffsoft

  veterán

  válasz poffsoft #12449 üzenetére

  Asszem ezt a kifejezést kellene használnom:

  Application.Caller.Parent.Previous.Range().Value

  csak nem tudom hogyan.
  Az aktív cella is változhat.

• #12442 Delila_1 veterán poffsoft #12441

  Új Válasz 2012-01-05 12:00:41 #12442

  Ú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 poffsoft #12441 üzenetére

  Ha 10 alatt van a LAPok száma, ez is megoldás lehet:

  ActiveCell.Select
  x = "LAP" & Right(ActiveSheet.Name, 1) - 1
  ActiveCell.FormulaR1C1 = "=" & x & "!RC[34]"
  ActiveCell.Offset(1, 0).Range("A1").Select

  de biztosan van egyszerűbb kivitel. Minden esetben az A2 cellára kell állni a futtatás után?

• #2400 Achilles csendes tag poffsoft #2388

  Új Válasz 2007-08-30 12:02:17 #2400

  Ú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

  

  Achilles

  csendes tag

  válasz poffsoft #2388 üzenetére

  Konkrétan ha az egyik fülön beírok egy számot ami kisebb 20nál, akkor egy új fülön lévő cellába másolja be azt a számot, mivel oda csak a 20 alatti mennyiségek kellenek nekem, pont ahogy írtad, ki kell szűrnöm egy másik lapra.

• #2389 kuszal tag poffsoft #2387

  Új Válasz 2007-08-26 10:45:22 #2389

  Ú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

  

  kuszal

  tag

  válasz poffsoft #2387 üzenetére

  Ögödej!
  Köszönöm szépen!
  Kipróbáltam de sajnos nem jártam sikerrel Mondjuk volt egy pár benne ami el sem indult, de ezt a Vista miatt tette.
  
  poffsoft!
  Köszi a tippet, kipróbálom! Igaz a levédett lapokon makrók is vannak és azok is érdekesek lennének, mert ha átírok az alaptáblán valamit akkor azok miatt lehet, sőt biztos, hogy módosítani kellene a makrót is. arról nem is beszélve, hogy ha nem tudom feltörni akkor újra kell írni őket.
  Makró írásban pedig elég láma vagyok. A függvényekkel, munkalapokkal való varázslás szerintem elég jól megy, de a makrók
  
  De kipróbálom, hátha összejön!
  
  bár van egy olyan érzésem ,hogy ezt be fogom bukni

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