Hirdetés
Hirdetés
-
Kiderült, mekkora aksi van az iPhone 16-okban
ma Mindegyik telep nőtt, legtöbbet az iPhone 16 Pro hízott.
-
Edifier R1600T III 2.0 Aktív hangfal
lo Tegnap érkezz meg az új hangfal rendszer. Egyrészt azért esett rá a vásárlás, mert ajánlott, másrészt van hozzá...
-
Végre a Logitech is bemutatott egy analóg klaviatúrát
ph A dolog már eléggé időszerű volt, mindenesetre a három színben készülő, TKL-es megoldás nem dúskál a hobbistáktól ellesett okosságokban.
-
Mobilarena
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
-
válasz Delila_1 #7277 üzenetére
Hali!
Pedig már kérdeztem is korábban, de sebaj, ez egy ilyen nap...
Na "leegyszerűsítettem" a kódot valamelyest...Remélem ALbeeeee-nek is sikerül létrehozni a Form-ot...Private Sub CommandButton1_Click()
myCol = "D"
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
If j = 0 Then
ActiveCell = TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
With TextBox1
.Text = ""
.SetFocus
End With
'Sheets("Munka1").Activate
End Sub
Private Sub UserForm_Activate()
If Sheets("Munka1").Range("F11") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End SubFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Digitális Állampolgárság Program DÁP
- Nikon DSLR topik
- Elden Ring
- A GameMax háza egyedi csavarral lovagolja meg a mai trendeket
- Azonnali VGA-s kérdések órája
- Könyvajánló
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Nintendo Switch 2, vagy amit akartok (találgatós topik most még)
- Eredeti játékok OFF topik
- Metal topik
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen