Legfrissebb anyagok
- Két év múlva jöhetnek az első DDR6-os memóriamodulok
- Évekre előre elszipkázzák az adattárolókat az AI adatközpontok
- EU: senki ne használjon Huawei és ZTE hálózati berendezéseket!
- ASUS blog: befutott az ExpertBook Ultra üzleti notebook
- Vészhelyzet: tönkreteheti a Garmin eszközeit legújabb frissítésük
PROHARDVER! témák
- ASUS blog: befutott az ExpertBook Ultra üzleti notebook
- Hobby elektronika
- Azonnali VGA-s kérdések órája
- TCL LCD és LED TV-k
- 5.1, 7.1 és gamer fejhallgatók
- Két év múlva jöhetnek az első DDR6-os memóriamodulok
- E-book olvasók
- Milyen billentyűzetet vegyek?
- Vezetékes FEJhallgatók
- Otthoni időjárás-állomás
Mobilarena témák
IT café témák
-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
Igen.
Kimerítő válasz
Egy picit szépítettem a hosszabb makrón (Fire, utólagos engedelmeddel)
Sub Téglalap()
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, "D").End(xlUp).Offset(1, 0).Select
If Munka1.TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range("D1:" & "D" & _
ActiveCell.Row), Munka1.TextBox1.Text)
If j = 0 Then
ActiveCell = Munka1.TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma (" & Munka1.TextBox1.Text & _
") már szerepel a D" & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
Munka1.TextBox1.Text = ""
Sheets("Munka1").Select
End Sub
Új hozzászólás Aktív témák
Topikgazda
Fferi50Aktív témák
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Apple watch Series Se 2 gen 44mm,Újszerű,Dobozaval,12 hónap garanciával
- Lenovo ThinkPad X13 Gen 3 i5-12. gen-16GB DDR5 RAM 256GB SSD FHD+ gari. 4g modem Érintőkijelző
- Szép állapotban Lenovo ThinkPad T14s Gen 4 i5-1335u/16 GB/256 SSD/FHD+/IPS/Garancia 2027
- Apple AirPods Max 2 USB-C Bontatlan Fekete & Csillagfény / 27% áfás ár
- iPhone 14 128GB Starlight -2 ÉV GARANCIA - Kártyafüggetlen, MS5400
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest