veri aktarımı ilşe ilgili sorum

[drummers]

ekli dosya içinde sorum mevcuttur

 

[N.Ziya Hiçdurmaz]

yanıt

Sub verial()
Dim sat As Integer
Sayfa17.[b4] = ""
Sayfa17.[c3] = ""
Sayfa17.[d3] = ""
Application.ScreenUpdating = False
    For sat = 2 To 5
        If Sayfa14.Cells(sat, "b").Font.ColorIndex <> 3 Then
            Sayfa17.[b4] = Sayfa17.[b4] & " " & Sayfa14.Cells(sat, "b")
        End If
    Next
        For sat = 2 To 45
        If Sayfa14.Cells(sat, "an").Font.ColorIndex <> 3 Then
            Sayfa17.[c3] = Sayfa17.[c3] & " " & Sayfa14.Cells(sat, "an")
        End If
        If Sayfa14.Cells(sat, "ak").Font.ColorIndex <> 3 Then
            Sayfa17.[d3] = Sayfa17.[d3] & " " & Sayfa14.Cells(sat, "ak")
        End If
    Next
Application.ScreenUpdating = True
End Sub