-
Fototrend
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
-
Delila_1
Topikgazda
válasz ALbeeeee #7255 üzenetére
A 2. kérdésre:
Private Sub CommandButton1_Click()
Dim usor
usor = Range("D65536").End(xlUp).Row + 1
If usor >= 65536 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End Sub2007-es verziónál a 65536 helyett add meg a helyes értéket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz ALbeeeee #7255 üzenetére
Hali!
1. kérdésre
If Range("F12") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End IfDelila_1
1. A kódod hol keresi meg, hogy már szerepelt-e a D oszlopban Textbox1 tartalma?
2. Az első üres cella az kétértelmű, mert értelmezhető úgy is, hogy nem feltétlenül az utolsó cella+1 (pl D1 : D10 tartományban csak a D3 üres, ez esetben a D3-ba kell az adatot beírni, nem pedig a D11-be) De erről majd ALbeeeee nyilatkozik...Fire.
[ 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
- HiFi műszaki szemmel - sztereó hangrendszerek
- Motorola Edge 50 Pro - több Moto-erő kéne bele
- Honor Magic5 Pro - kamerák bűvöletében
- Xbox tulajok OFF topicja
- Kerékpárosok, bringások ide!
- Samsung Galaxy A52s 5G - jó S-tehetség
- Samsung Galaxy A54 - türelemjáték
- Hobby elektronika
- Indika teszt
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen