Telefonszámunk: 1-472-0679

[Resolved] VBA hiba

Kezdőlap Fórumok Excel programozás [Resolved] VBA hiba

Topic Resolution: Resolved
4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • #5384
    NIN
    Felhasználó

      Sziasztok!

      Az alábbi programot szeretném működőképessé tenni, sajnos napok óta próbálkozom, de nekem nem megy!

      / Nem értek a programozáshoz, az alábbi programot is itt kaptam /

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 29 Then
      Application.EnableEvents = False
      If Target = „Kezdés” Then Cells(Target.Row, „Ad”) = Now
      Application.EnableEvents = True
      If Target = „Kész” Then Cells(Target.Row, „AF”) = Now Else Cells(Target.Row, „AE”) = Now
      Application.EnableEvents = True
      End If
      End Sub

      Azt szeretném elérni, hogy a lenyíló listában szereplő szavak kiválasztása után , különböző cellákaba kerüljön az aktuális idő.

      Ha „Kezdés” szerepel, akkor az „AD” oszlopba írjon
      Ha „Kész” szerepel, akkor „AF” oszlpba írjon
      Minden más szövegnél az „AE” oszlopba írjon.

      Sajnos jelenleg – a fentebb látható program – végrehajtásakor a „Kezdés”-nél nem csak az „AD” oszlopot tölti, hanem az „AE”-t is.

      Ha valaki tud segíteni, nagyon megköszönöm!

      ÜDvözlettel NIN

      #5386
      delila
      Felhasználó

        A laphoz rendelt a makrót.

        Private Sub Worksheet_Change(ByVal Target As Range)
            Dim oszlop As String
            If Target.Column = 29 Then 'AC oszlop
                Select Case Target
                    Case "Kezdés"
                        oszlop = "AD"
                    Case "Kész"
                        oszlop = "AF"
                    Case Else
                        oszlop = "AE"
                End Select
                
                Application.EnableEvents = False
                Cells(Target.Row, oszlop) = Now
                Application.EnableEvents = True
            End If
        End Sub

        A Select Case utasításban a különböző beírható értékekhez megadtam, melyik oszlop legyen az időpont bevitele.

        #5388
        NIN
        Felhasználó

          Nagyon köszönöm!

          Működik!

          #5395
          horvimi
          Adminisztrátor

            Ezt a három oszlopban egy-egy HA függvénnyel is meg lehetne oldani, bár a MOST függvény volatilitása miatt nem a legjobb megoldás, ha sok sora lenne a táblának.

          4 bejegyzés megtekintése - 1-4 / 4
          • Be kell jelentkezni a hozzászóláshoz.