Kod Güncelleme

[igultekin2000]

iyi günler; daha önce kullandığım işlemde ilaveler olunca yardıma ihtiyacım oluyor.

II.Sorun G sütunuda M,T,O harfleri varsa bunlar aşağı ve yukarı kopyalanmasın, F sütunu dolu ise G hücresi aşağı doğru kopyalansın boş ise yukarı doğru kopyalansın... Ancak bu makronun en alttan satırdan yukarı doğru çalışması gerekiyor ki sonuç doğru olsun, üst satırdan aşağı doğru olduğunda yanlış sonuç veriyor. bayağı deneme yapmama rağmen çözüme ulaşamadım.
Kullandığım makro

Sub KODMOD_1()
    Application.ScreenUpdating = False
        For i = 2 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "E") = "" And Cells(i, "F") <> "" And Cells(i, "G") = "" Then
            Cells(i, "G") = Cells(i + 1, "G")
      End If
          Next i
    i = Empty
          For i = Cells(Rows.Count, "C").End(3).Row To 2 Step -1
         If Cells(i, "E") <> "" And Cells(i, "F") = "" And Cells(i, "G") = "" Then
            Cells(i, "G") = Cells(i - 1, "G")
       End If
         Next i
         i = Empty
             Application.ScreenUpdating = True
End Sub

bu konuda yardım ihtiyacım var, şimdiden teşekkürler.

İki sorundan birinci çözüldüğü için çıkarttım.

 

[Muzaffer Ali]

Merhaba.

1. sorunuzun cevabı.

Sub KOD_AKTARIMI()
 Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 3).End(3).Row
        Select Case Left(Cells(i, 3).Value, 3)
            Case 120, 340, 320, 159, 336, 136, "M", "O", "T", 500, 331, 131
                Cells(i, "G").Value = Cells(i, 3).Value
            Case Else
                Cells(i, "G").Value = ""
        End Select
        If Cells(i, 3).Value = "101 10" Or Cells(i, 3).Value = "121 01 02" Then
            Cells(i, "G").Value = Cells(i, 3).Value
        End If
    Next i
     Application.ScreenUpdating = False
End Sub

2.sorunuzu maalesef anlayamadım

 

[igultekin2000]

1 sorun çözüldü

Merhaba.

1. sorunuzun cevabı.

Sub KOD_AKTARIMI()
 Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 3).End(3).Row
        Select Case Left(Cells(i, 3).Value, 3)
            Case 120, 340, 320, 159, 336, 136, "M", "O", "T", 500, 331, 131
                Cells(i, "G").Value = Cells(i, 3).Value
            Case Else
                Cells(i, "G").Value = ""
        End Select
        If Cells(i, 3).Value = "101 10" Or Cells(i, 3).Value = "121 01 02" Then
            Cells(i, "G").Value = Cells(i, 3).Value
        End If
    Next i
     Application.ScreenUpdating = False
End Sub

2.sorunuzu maalesef anlayamadım

Birinci sorun çözüldü, teşekkür ederim. İkinci sorun için açıklama ilave ettim. Teşekkür ederim.