makro sorunum

Katılım
12 Haziran 2007
Mesajlar
59
Excel Vers. ve Dili
excel 2007
Arkadaşlar çok acil yardımınıza ihtiyacım var,ilgilenirseniz sevinirim!Sorunumu ekteki tabloda açıkladım,ufak bi makro problemi:)

özür dilerim dosyayı eklemeyi unutmuşum sanırım:)
 
Moderatör tarafında düzenlendi:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Ekli dosyayı inceleyiniz.:cool:
Kod:
Sub duzenle()
Dim i As Long
Sheets("Sayfa1").Select
Set f = Range("A5:IV5").Find("sektorad", , xlValues, xlWhole)
If f Is Nothing Then
    MsgBox "[sektorad ] metini bulunamadı.Makro çalıştırılmadı.", vbCritical
    Exit Sub
End If
adr1 = Range(Cells(6, f.Column), Cells(Cells(65536, f.Column).End(xlUp).Row, f.Column)).Address
Range(adr1).Replace What:="HİZMET", Replacement:="49", LookAt:=xlPart
Range(adr1).Replace What:="İNŞAAT", Replacement:="50", LookAt:=xlPart
Range(adr1).Replace What:="İMALAT", Replacement:="37", LookAt:=xlPart
Range(adr1).Replace What:="ENERJİ", Replacement:="54", LookAt:=xlPart
Range(adr1).Replace What:="TEKSTİL", Replacement:="4", LookAt:=xlPart
Range("L6:L" & Cells(65536, "L").End(xlUp).Row).Replace What:="YTL", Replacement:="0", LookAt:=xlPart
Range("L6:L" & Cells(65536, "L").End(xlUp).Row).Replace What:="USD", Replacement:="1", LookAt:=xlPart
Range("L6:L" & Cells(65536, "L").End(xlUp).Row).Replace What:="EUR", Replacement:="50", LookAt:=xlPart
Application.ScreenUpdating = False
For i = Cells(65536, "I").End(xlUp).Row To 6 Step -1
    If IsError(Cells(i, "I").Value) And Cells(i, "O").Value = "" _
    And Cells(i, "Q").Value = "" And Cells(i, "R").Value = "" Then
        Rows(i).Delete
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAMLANDI", vbOKOnly + vbInformation
End Sub
 
Son düzenleme:
Katılım
12 Haziran 2007
Mesajlar
59
Excel Vers. ve Dili
excel 2007
Orion ilgin için teşekkürler kardeş,çok saol
 
Katılım
12 Haziran 2007
Mesajlar
59
Excel Vers. ve Dili
excel 2007
Yalnız sevgili orion tamam yazdıgın makro değiştirmeleri yapıyo ama şu istediğim #yok ve belli sütunların boş olması halinde o satırın silinmesi işlemini gerçekleştirmiyor sanırım,ben mi yanlış bi,şeyler yapıyorum acaba?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Yalnız sevgili orion tamam yazdıgın makro değiştirmeleri yapıyo ama şu istediğim #yok ve belli sütunların boş olması halinde o satırın silinmesi işlemini gerçekleştirmiyor sanırım,ben mi yanlış bi,şeyler yapıyorum acaba?
O durum pek açık değildi.
Ben I sütunu boşsa ve O,Q ve R sütunu boşsa silinecek diye anladım.yani satıtın silinmesi için 4 şartın yerine gelmesi gerekiyor.
Öyle değilse siz açıklayın bende kodları o şekle göre düzenleyim.:cool:
 
Katılım
12 Haziran 2007
Mesajlar
59
Excel Vers. ve Dili
excel 2007
ya benim de istediğim buydu ama yazdıgın makroyla olmuyo bu işlem orion
baştan anlatmak gerekirse I sütunundaki değer #YOK ve O,Q,R sütunları boşsa(yani 4 koşulun aynı anda gerçekleşmesi halinde o satırın tamamen silinmeisini istiyorum ben ama gönderdiğin örnekte böyle olmuyo sanırım:(
 
Katılım
12 Haziran 2007
Mesajlar
59
Excel Vers. ve Dili
excel 2007
Peki bişey daha soracam cehaletimi bağışla sevgili orion.şimdi gönderdiğim tabloda sektör G sütununda ya bendeki bazı diğer tablolarda H veya F sütunlarınde ve dolayısıyla bu makro düzgün çalışmıyor.O yüzden G şeklinde sütun belirtmek yerine başlığı "Sektör" olan sütunda sektör bu düzeltmeleri yapmak için bir makro yazılabilir mi acaba?yardımların için teşekkür.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Satırın silinmemesi ile teknik bir hata yapmışım ondan silinmemiş.
Diğer isteğinizde yerine getirildi.Yalnız sektorad olarak girilmeli ve 5nci satırda olmalı.:cool:
Önceki mesajımdan indirebilirsiniz.:cool:
 
Katılım
12 Haziran 2007
Mesajlar
59
Excel Vers. ve Dili
excel 2007
çok teşşekür ederim orion ellerine ve emeğine sağlık...
 
Üst