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

• #41567 Delila_1 veterán g4b3n #41566

  Új Válasz 2019-08-13 12:33:59 #41567

  Ú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 g4b3n #41566 üzenetére

  Lehet, hogy lépésenként futtattad, és kiléptél az Application.EnableEvents = True sor végrehajtása előtt. A futás tiltása (False) maradt érvényben.
  A VBE felületen Ctrl+g-re megjelenik az Immediate ablak, oda írd be az engedélyező sort, és enterezd le.

  Átírtam a makrót. A megadott G2:G350 tartomány módosulását figyeli, és az A:C tartományt másolja a 2. lapra, majd a G-t a D-be. Ez utóbbinak nem sok értelme van, ha nullás bevitel esetén másol. Bármilyen G oszlopbeli érték megadásakor történő másoláshoz vedd ki a belső If - End If feltételt. Csakis az If és End If-es sort, a magot ne!

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long
If Not Intersect(Target, [G2:G350]) Is Nothing Then
If Target = 0 Then
Application.EnableEvents = False
ide = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Target.Row & ":C" & Target.Row).Copy Sheets("Munka2").Range("A" & ide)
Range("G" & Target.Row).Copy Sheets("Munka2").Range("D" & ide)
Application.EnableEvents = True
End If
End If
End Sub

• #41564 Delila_1 veterán g4b3n #41563

  Új Válasz 2019-08-13 09:59:36 #41564

  Ú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 g4b3n #41563 üzenetére

  Az első munkalapodhoz kell rendelned a makrót (a Téma összefoglalóban megtalálod a leírást)

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long

If Target.Column = 7 Then
If Target = 0 Then
Application.EnableEvents = False
ide = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Munka2").Range("A" & ide)
Application.EnableEvents = True
End If
End If
End Sub

• #32732 Fferi50 Topikgazda g4b3n #32731

  Új Válasz 2016-09-20 12:23:16 #32732

  Ú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

  

  Fferi50

  Topikgazda

  válasz g4b3n #32731 üzenetére

  Szia!

  A képleteket egy mozdulattal át lehet alakítani értékké, amiután már nem változik semerre:
  Kijelölöd a területet - jobb egérgomb - másolás - jobb egérgomb - irányított beillesztés - értéket.

  Ettől kezdve csinálhatsz bármit, a cellákban nem változik az érték.

  Üdv.

• #32730 Fferi50 Topikgazda g4b3n #32729

  Új Válasz 2016-09-20 11:24:58 #32730

  Ú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

  

  Fferi50

  Topikgazda

  válasz g4b3n #32729 üzenetére

  Szia!

  Ha egy cellát szúrsz be az A oszlop elejére, akkor a képlet
  =HA(MARADÉK(SOR();2)=0;SZÖVEG(SOR()/2;"###")&"/1";SZÖVEG(SOR()/2-1;"###") &"/2")
  ha kettőt akkor
  =HA(MARADÉK(SOR();2)=1;SZÖVEG(SOR()/2-1;"###")&"/1";SZÖVEG(SOR()/2-1;"###") &"/2")

  Ha még több sor lenne, akkor felváltva próbáld két képletet, a -1 helyére a beszúrt sorok számával variálni.

  Üdv.

• #32728 Fferi50 Topikgazda g4b3n #32727

  Új Válasz 2016-09-20 10:11:34 #32728

  Ú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

  

  Fferi50

  Topikgazda

  válasz g4b3n #32727 üzenetére

  Szia!

  A oszlopban a képlet:
  =HA(MARADÉK(SOR();2)=1;SZÖVEG(SOR()/2;"###")&"/1";SZÖVEG(SOR()/2;"###") &"/2")

  B oszlop első két cellájába beírod: '111 és '201 vagy =Szöveg(111;"###") és =Szöveg(201;"###")
  Majd a B3 cella képlete: =SZÖVEG(B1+1;"###")
  és ezt a képletet húzod végig az oszlopon.

  Üdv.

• #32726 Fferi50 Topikgazda g4b3n #32725

  Új Válasz 2016-09-20 09:20:09 #32726

  Ú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

  

  Fferi50

  Topikgazda

  válasz g4b3n #32725 üzenetére

  Szia!

  Mit szeretnél látni a cellában, magát a kifejezést 1/1,1/2 stb., vagy az eredményt?
  A további sorokban 3/1,3/3, 4/1, 4/4 vagy 3/1,3/2,3/3,4/1,4/2,4/3,4/4?

  Mindkét esetben szerintem csak makróval lehet megoldani, ha közvetlenül a cellába szeretnéd a képletet, másik cella használata nélkül.
  Segédoszlop felhasználásával talán működhet a dolog szerintem képlettel is.

  Üdv.

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