Excel makró javítása
Szolgáltatás helyszíne
Távmunkában végezhető
Kifizetés módja
Megállapodás szerint
Összeg
5 000 Ft
Feladat leírása
Üdv!
Egy Excel makrókban jártas szakit keresek, aki megoldja az alábbi VBA script Type mismatch hibáját.
Sub DeleteRowsWithSameContent()
Dim Contents
Dim Where As Range, R As Range, All As Range
Dim i As Integer
Dim FirstAddress As String
Set Where = Intersect(Selection, ActiveSheet.UsedRange)
If Where Is Nothing Then
MsgBox "Select some cells with content to delete those rows"
Exit Sub
End If
Contents = Array()
For Each R In Where
If IsEmpty(R) Or R.Value = "" Then GoTo Skip
For i = 0 To UBound(Contents)
If StrComp(R.Value, Contents(i), vbTextCompare) = 0 Then Exit For
Next
If i > UBound(Contents) Then
ReDim Preserve Contents(0 To UBound(Contents) + 1)
Contents(UBound(Contents)) = R.Value
End If
Skip:
Next
If UBound(Contents) < 0 Then
MsgBox "Select some cells with content to delete those rows"
Exit Sub
End If
Set Where = Where.EntireColumn
For i = 0 To UBound(Contents)
Set R = Where.Find(Contents(i), LookIn:=xlValues, LookAt:=xlWhole)
FirstAddress = R.Address
Do
If All Is Nothing Then Set All = R Else Set All = Union(All, R)
Set R = Where.FindNext(R)
Loop Until R.Address = FirstAddress
Next
All.EntireRow.Select
If MsgBox("Delete all these rows?", vbYesNo + vbDefaultButton2) = vbYes Then
All.EntireRow.Delete
End If
End Sub
Hasonló feladatok
Egy PHP-ben írodott weboldalhoz keresnék megoldást az alábbi „API” kiépítésére.
A meglévő weboldal adatbázisából kinyert adatok alapján egy teljesen függetle…
Ajánlatkérés
Mercedes E350 Cdi 2011-es évjáratú autómat szeretném políroztatni eladás előtt. Kisebb karcolások, horzsolások vannak rajra.
Ajánlatkérés
Rugalmas vagyok az időpontban az oldalak elkészítéséhez magánszemélyt vagy kis vállalkozót keresek mert azt tudom megfizetni, Budapesti vagy közeli személyes …
április 1, 06:00 — április 8, 06:00
Ajánlatkérés
Állateledel webshop, regisztrációs vásárlás, bejelentkezéssel
100 000 Ft
Szia!
Egy valós Google erath-on keresztül szeretnék egy busz simulatorhoz megépítetettni egy busz útvonalat ehhez szeretnék szakit találni :)
Ajánlatkérés