koşullu silme,aktarma,toplama

[recep]

1. MAKRO E SÜTUNUNDA EÐER GEÇTİ YAZIYORSA C SÜTUNUNDAKİ SAYILAR 1 ARTSİN
2. MAKRO E SÜTUNUNDA GEÇTİ YAZIYORSA CV3:HZ1103 ARASINDAKİ HÜCRE İÇİNDEKİ SAYILAR SİLİNSİN
3.MAKRO EGER C SUTUNUNDA SATIRDA 4 VARSA O SATIRDA S SÜTUNUNDAKİ M SÜTUNUNAÃ?RNEK(C4=4 İSE S4 Ü M4 DE YAZ.)
(C4=5 İSE T4 Ü N4 DE YAZ.)
(C4=6 İSE U4 Ü O4 DE YAZ.)
(C4=7 İSE V4 Ü P4 DE YAZ.)
(C4=8 İSE W4 Ü Q4 DE YAZ.)

AMA HER SATIR İÇİN KENDİNE GÃ?RE YAZSİN.
4.MAKRO CSÜTUNUNDA HANGİ SATIRDA 9 YAZIYORSA O SÜTÜNÜN TÜM İÇERİÐİNİ SİLECEK FORMÜLLER BÃ?ZULMZDAN

MAKROLAR AYRI AYRI OLAMLI BEN BUNLARI BUTONLAYIP SENE SONU İÞLEMLERİ OLARAK ADLANDIRACAÐIM.
1. İÞLEM SINIFI YÜKSELTME
2.İÞLEM NOTLARI SİLME
3. İÞLEM YIL SONU ORTALAMALARINI AKTARMA
4. MEZUN OLANLARIN KAYDININ SİLİNMESİ

biraz fazla oldu galiba ama benin bunları yapabilmem çok zor.

 

[Tarkan VURAL]

Selam;

4.soru kodu :

Private Sub CommandButton1_Click()
For Each dokuzara In Range("c1:c65536")
If dokuzara.Value = "9" Then
Rows(dokuzara.Row).ClearContents
End If
Next
End Sub

 

[Tarkan VURAL]

3.soru kodu :

Private Sub CommandButton2_Click()
For Each ara In Range("c1:c65536")
If ara.Value = "4" Then _
Rows(ara.Row).Cells(1, 13).Value = _
Rows(ara.Row).Cells(1, 19).Value
If ara.Value = "5" Then _
Rows(ara.Row).Cells(1, 14).Value = _
Rows(ara.Row).Cells(1, 20).Value
If ara.Value = "6" Then _
Rows(ara.Row).Cells(1, 15).Value = _
Rows(ara.Row).Cells(1, 21).Value
If ara.Value = "7" Then _
Rows(ara.Row).Cells(1, 16).Value = _
Rows(ara.Row).Cells(1, 22).Value
If ara.Value = "8" Then _
Rows(ara.Row).Cells(1, 17).Value = _
Rows(ara.Row).Cells(1, 23).Value
Next ara
End Sub

 

[Tarkan VURAL]

2.soru kodu :

Private Sub CommandButton3_Click()
For Each gec In Range("E1:E65536")
If gec.Value = "gecti" Then
Range("CV3:HZ1103").ClearContents
End If
Next gec
End Sub

 

[recep]

TEÞEKKÜRLER BEN BİR DENEYEYİM.SORUM ÇIKARSA BİLDİRİRİM.

 

[recep]

hata

1. kodla 2 kod karışmış ben 2. kodu düzelttim
1.kot nasıl olacak
3. kot çok güzel tam istediğim gibi olmuş eline sağlık
4. kotta ise satırdaki her şeyi siliyor formüllesi silmemesinin bir yolu varmı*

 

[Tarkan VURAL]

Pardon formül kısmını okumayı atlamışım.
Formulleriniz hangi sütunlarda bulunuyor ?

 

[recep]

gsütünunda k ile ab arası

 

[Tarkan VURAL]

4. kod için şunu dener misin ?

Private Sub CommandButton1_Click()
Dim i, x, y, z As Integer
    For Each dokuzara In Range("c1:c65536")
        If dokuzara.Value = "9" Then
            For i = 1 To 2
                Rows(dokuzara.Row).Cells(1, i).ClearContents
            Next i
            For z = 4 To 6
                Rows(dokuzara.Row).Cells(1, z).ClearContents
            Next z
            For y = 8 To 10
                Rows(dokuzara.Row).Cells(1, y).ClearContents
            Next y
            For x = 29 To 256
                Rows(dokuzara.Row).Cells(1, x).ClearContents
            Next x
        End If
    Next
End Sub

 

[recep]

tamam teşekkür 1. makroyu yazabilir mişiniz o eksik kaldı.

 

[Tarkan VURAL]

İnşallah, işlerden kafamı kaldırabilirsem :kafa: cevaplayacağım, tabi bu arada cevap gelmez ise :icelim: