Excel makró javítása

5 000 Ft
Zoltán
Zoltán R.
Nem elérhető feladatok Megjelent: 2 éve 140 megtekintés Programozás és szoftverfejlesztés
14021
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

Webfejlesztés
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
Krisztián S.
Webfejleszté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.
Budapest
Ajánlatkérés
Sandor
Webfejleszté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 …
1141, 17/19, Komócsy u., Budapest
április 1, 06:00 — április 8, 06:00
Ajánlatkérés
Szigeti Zsolt
Webfejlesztés
Állateledel webshop, regisztrációs vásárlás, bejelentkezéssel
2800, Tatabánya
100 000 Ft
Tifani
Webfejlesztés
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
Alpay D.