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

• #44321 Sprite75 tag Delila_1 #44317

  Új Válasz 2020-06-23 09:47:59 #44321

  Ú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

  

  Sprite75

  tag

  válasz Delila_1 #44317 üzenetére

  Szia

  Ez így működik is köszönöm, de tovább gondoltam a dolgot.
  Tudom ott kezdődik a probléma mikor gondolkodom

  Csak azoknak a soroknak a D oszlopába kell sorszámozni, ahol a Q oszlopban van szám. Elvileg az lehet 0 is de mindenképpen van írva valami a Q oszlopba amikor a D -be soszám szükséges.
  Ezért írtam egy ilyet de természetesen nem jól működik

  Sub Sorszam2()
    Dim usorC As Long, usorQ As Integer
    
    usorC = Range("C" & Rows.Count).End(xlUp).Row - 1
    usorQ = Range("Q" & Rows.Count).End(xlUp).Row - 1
     If usorQ < 0 Then
        End
          Else
              Range("D" & usorC) = Application.WorksheetFunction.Max(Range("D2:D" & usorC - 1)) + 1
      End If
    
End Sub
  
  Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába.
  Ha nem írnak semmit az adatbevitelkor a Q oszlopba akkor pedig nem kell új sorszám.

  Remélem nem bonyolítom a dolgot nagyon

  Megint küldök egy képet is a kinézetről.
  [kép]

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