- Ha Trump győz, Elon Musk politikai tanácsadó lehet
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Tárhely szolgáltató választás
- Milyen program, ami...?
- Szilárdtest-akkumulátorokat fejleszt Kína, jöhet az áttörés?
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Excel topic
- Bittorrent topik
- Milyen routert?
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
-
IT café
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 k.zola219 #6928 üzenetére
Sub valami()
Dim cv As Object
For Each cv In Range("B2:N40")
If IsEmpty(cv.Value) Then
Range(cv.Address) = Cells(1)
Else
If IsNumeric(cv) Then Range(cv.Address) = cv * Cells(2, 1)
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz k.zola219 #7020 üzenetére
Sub valami()
Dim cv As Object
For Each cv In Range("C2:N40")
If IsEmpty(cv.Value) Then
Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
Selection.Delete Shift:=xlToLeft
End If
Next
End SubKérlek, legközelebb tisztelj meg azzal, hogy hamarabb reagálsz a válaszomra. Múltkor 9 perc alatt kaptad meg a megoldást, és csak 8 napra rá írtál. Szívesen segítek, de talán elvárhatom, hogy ne egy bő hét múlva közöld, mire mentél vele. Ne kelljen utólag kikeresnem, mi is volt az eredeti kérdés.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz k.zola219 #7027 üzenetére
Ímé:
Sub valami()
Dim cv As Object
For Each cv In Range("C2:N40")
If IsEmpty(cv.Value) And Application.CountA(Range(Cells(2, cv.Column), _
Cells(40, cv.Column))) = 0 Then
Range(Cells(1, cv.Column), Cells(40, cv.Column)).Select
Selection.Delete Shift:=xlToLeft
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs