Excel makró javítása

5 000 Ft
Zoltán
Zoltán R.
Nem elérhető feladatok Megjelent: 2 hónapja 107 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
Facebook messengerhez kell irni egy programot, ami automatikusan visszakuld egy sablon uzenetet. A facebook marketplacen arulunk tobb termeket is. Az azonnali…
Karácsony Sándor u. 28
Kezdés: szeptember 27, 12:19
100 000 Ft
Dániel P.
Webfejlesztés
Adatbázis import export leírás alapján user frendly kezelő felület ahol fel lehet vinni neveket, adatokat, beérkező adatok alapján, rangsorolas, megjelenítés.…
Ajánlatkérés
Tamas
Webfejlesztés
Csőszereléssel foglalkozó weboldal elkészítése. Szolgáltatások, bemutatkozás.
50 000 Ft
Dávid D.