2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #40270 p5quser tag Delila_1 #40268
    Új Válasz #40270
    Ú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

    p5quser

    tag

    válasz Delila_1 #40268 üzenetére

    Pedig úgy megpróbáltam beilleszteni... :D
    Szóval ez egy tableten futkározó "leltár" excel. Amennyire lehetett, automatizáltam a bevitelt. Így néz ki a teljes kód;
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Ide As Long
    If Target.Value = "" Then Exit Sub
    If Sheets.Count = 1 Then
    MsgBox "KEZDJ ÚJ ÍVET"
    ElseIf Sheets(Sheets.Count).ProtectContents = True Then
    MsgBox "OLDD FEL A LEZÁRT ÍV LAPVÉDELMÉT, HA HOZZÁ AKARSZ ÍRNI, VAGY KEZDJ ÚJ ÍVET"
    Else
    If Not Intersect(Target, Range("A:B")) Is Nothing Then
    Ide = Sheets(Sheets.Count).Range("A" & Rows.Count).End(xlUp).Row + 1
    Target.EntireRow.Copy
    Sheets(Sheets.Count).Range("A" & Ide).PasteSpecial xlPasteValues
    Sheets(Sheets.Count).Select
    ActiveCell.Offset(0, 2).Select
    Selection.Value = InputBox("DARABSZÁM")
    Selection.NumberFormat = "0.00"
    ActiveSheet.Range("B:B,C:C").EntireColumn.AutoFit
    Sheets(1).Select
    With TextBox1
    .Activate
    .SelStart = 0
    .SelLength = Len(.Text)
    End With
    End If
    End If
    Cancel = True
    End Sub

    Nézd el kérlek fércmunka jellegét. Ebben kéne elérnem, hogy a tizedes jel bevitelt vesszővel lehessen megoldani. Nem tudom hogy illesszem be az általad leírtakat.
    Köszönöm!

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