AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
den her gør det ud for celle I5 skal du bare sætte flere ind, har ikke styr på hvordan den kan gøre det hele i en kode...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$5" Then 'Cellen Worksheets("Ark1").L5box.Visible = False c = Cells(5, 9).Value If c = "4+0" Or c = "4+1" Or c = "5+0" Or c = "5+1" Or _ c = "6+0" Or c = "6+1" Or c = "7+0" Then Worksheets("Ark1").L5box.Visible = True Else Worksheets("Ark1").L5box.Visible = False End If End If End Sub
Jeg har en userform med tekstboxene og to regneark hvor det ene skal søge efter koder 4+0 4+1 5+0 5+1 6+0 6+1 7+0. Det andet regneark skal så levere teksten til tekstboxene.
Hvis der på Lotto i Cellerne I5:I24 er koderne 4+0 osv. skal textboxen vise Trækninger fra to celler eks. (D7:E7) "spørgsmål: Kan disse navngives til en celle", hvis der ikke er gevinst skal den skjules.
Jeg tror det er noget med lopslag - er det ikke rigtigt. Jeg kan evt. sende regnearket .
If Worksheets("Lotto") celle ("I5:I24") Er lig med "7+0" Then frmGevinst.TextBox27.Value = Worksheets("Trækninger") celle ("D7:E7") If "6+1" Then frmGevinst.TextBox27.Value = Worksheets("Trækninger") celle ("F7:G7") If "6+0" Then If "5+1" Then If "5+0" Then If "4+1" Then If "4+0" Then
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
