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

• #19285 Mutt senior tag lomajpure #19282

  Új Válasz 2013-10-11 21:33:05 #19285

  Ú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

  

  Mutt

  senior tag

  válasz lomajpure #19282 üzenetére

  Hello,

  ...hogy lehet csak értéket átmásolni?
  Egy lépésben nem lehet, PasteSpecial kell neked.

  wb1.Sheets(1).Range("Z2").Copy
  wb.Sheets(1).Range("F6").PasteSpecial xlPasteValues

  üdv

• #19281 Mutt senior tag lomajpure #19262

  Új Válasz 2013-10-10 23:20:39 #19281

  Ú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

  

  Mutt

  senior tag

  válasz lomajpure #19262 üzenetére

  Hello,

  És fájl megnyitásnál kapok egy 438-as hibakódot.. Debug módban a "range" sorra hivatkozik, de nem értem a hibát.....

  wb1.Range("Z2").Copy wb.Range("F6")

  Workbook objektumnak nincsen Range nevű tulajdonsága, mert ilyen a Worksheet objektumnak van.
  Vagyis hivatkoznod kell hogy melyik lapon akarod a füzeten belül a műveletet végrehajtani.

  pl. wb1.Sheets(1).Range("Z2").Copy wb.Sheets(1).Range("F6")

  üdv

• #11431 m.zmrzlina senior tag lomajpure #11429

  Új Válasz 2011-09-21 10:07:47 #11431

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11429 üzenetére

  Én inkább elrejteném azokat a sorokat mert ha többen használják a fájlt félő hogy valaki előbb utóbb belekotor.

  Sőt lehetne egy rejtett munkalapra is tenni. Én ezt javaslom. Este leszek megint majd ránézek megint ha addig valaki meg nem oldja.

• #11430 m.zmrzlina senior tag lomajpure #11427

  Új Válasz 2011-09-21 10:05:32 #11430

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11427 üzenetére

  Nincs mit

  

• #11426 m.zmrzlina senior tag lomajpure #11422

  Új Válasz 2011-09-21 09:48:51 #11426

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11422 üzenetére

  Akciós áron sikerült hozzájutnom több tonna IF..THEN..END IF szerkezethez ezért most mindent azzal akarok megoldani

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
  If Target.Interior.ColorIndex <> 24 Then ActiveCell.Offset(10, 0).Value = ActiveCell.Interior.ColorIndex
  
  If ActiveCell.Interior.ColorIndex = 24 Then
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
  Target.Interior.ColorIndex = ActiveCell.Offset(10, 0).Value
  Exit Sub
  End If
  
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
  Target.Interior.ColorIndex = 24
  End If
  End Sub

• #11423 lomajpure csendes tag lomajpure #11422

  Új Válasz 2011-09-21 09:27:07 #11423

  Ú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

  

  lomajpure

  csendes tag

  válasz lomajpure #11422 üzenetére

  jó lesz ezen is teljesen.

• #11421 m.zmrzlina senior tag lomajpure #11419

  Új Válasz 2011-09-21 09:21:00 #11421

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11419 üzenetére

  Bocs ez nem az eredet színt adja vissza hanem a "Nincs kitöltést". Az eredeti szín már nem lesz ennyire egyszerű.

  Valahol mindenképpen tárolni kell az eredeti szín kódját. Az jó lesz ha ezen a munkalapon elrejtjük valahová vagy tegyük másik munkalapra?

• #11420 m.zmrzlina senior tag lomajpure #11419

  Új Válasz 2011-09-21 09:17:15 #11420

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11419 üzenetére

  Próbáld ezt:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
  If ActiveCell.Interior.ColorIndex = 24 Then
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
  Target.Interior.ColorIndex = xlNone
  Exit Sub
  End If
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
  Target.Interior.ColorIndex = 24
  End If
  End Sub

• #11417 m.zmrzlina senior tag lomajpure #11415

  Új Válasz 2011-09-21 08:59:40 #11417

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11415 üzenetére

  

• #11416 m.zmrzlina senior tag lomajpure #11414

  Új Válasz 2011-09-21 08:58:51 #11416

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11414 üzenetére

  Pontosabban a 36. oszlopba (AJ oszlop).

• #11415 lomajpure csendes tag lomajpure #11414

  Új Válasz 2011-09-21 08:57:32 #11415

  Ú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

  

  lomajpure

  csendes tag

  válasz lomajpure #11414 üzenetére

  Sztornó, én voltam figyelmetlen, örök hála!

• #11413 m.zmrzlina senior tag lomajpure #11409

  Új Válasz 2011-09-21 08:27:04 #11413

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11409 üzenetére

  Rendeld a munkalaphoz a következő kódot:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 Then
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
  Target.Interior.ColorIndex = 24
  End If
  End Sub

  Munkalaphoz rendelni így kell.

  Figyelj rá, hogy ez a kód nem vizsgálja a cella tartalmát amire kattintottál. Tehát ha nem D-re kattintasz a DE sorban akkor is hozzáad az összeghez nyolcat.

• #11410 Fire/SOUL/CD félisten lomajpure #11409

  Új Válasz 2011-09-20 19:24:08 #11410

  Ú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 lomajpure #11409 üzenetére

  1. És (a példádnál maradva), egy D betűn csak 1x lehet kattintani, azaz ha 10x kattintok
  ugyanarra a D-re, akkor nem 80-nak kell lennie, ugye?

  2. Csak ezt a 4 "szimbólumot" használod? (ABCD)

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