Proforma sayfasını aktarma

[enrealman]

Proforma için yardım

Merhaba,
maliyet sayfasında C sutununda sadece veri bulunan satırların A,B,C ve G sutunundaki verileri, PROFORMA sayfasında karşılık gelen sutunlara otomatik aktarılmasını nasıl yapabilirim. Şimdiden yardımcı olacak arkadaşlara teşekkür ederim.

MALİYET -------- PROFORMA
A------------------A-------------16.satırdan itibaren
B------------------B--------------16.satırdan itibaren
C------------------F--------------16.satırdan itibaren
G------------------I---------------16.satırdan itibaren Sutunlarına karşılık gelmelidir.

PROFORMA ya aktarılan veriler transfer sayfasına da 1. satırdan itibaren aktarılırsa sevinirim.

Şimdiden teşekkür ederim.

 

[Orion1]

Hayret bi şey .Hem yardım istiyorsunuz hemde dosyaya şifre koyuyorsunuz.
Keşke dosyaya bakmasaydım.

 

[enrealman]

Hayret bi şey .Hem yardım istiyorsunuz hemde dosyaya şifre koyuyorsunuz.
Keşke dosyaya bakmasaydım.

binlerce kere özür diliyorum. hemen düzeltiyorum.

 

[enrealman]

Yardım edecek kimse yok mu?

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim i As Long, sat As Long, sh As Worksheet, sat2 As Long
Set sh = Sheets("PROFORMA")
Sheets("MALİYET").Select
sat = Cells(65536, "A").End(xlUp).Row
sat2 = 16
Application.ScreenUpdating = False
sh.Range("A16:F43,K16:K43").Value = ""
For i = 3 To sat
    If Cells(i, "C").Value <> "" Then
        sh.Cells(sat2, "A").Value = Cells(i, "A").Value
        sh.Cells(sat2, "B").Value = Cells(i, "B").Value
        sh.Cells(sat2, "F").Value = Cells(i, "C").Value
        sh.Cells(sat2, "K").Value = Cells(i, "G").Value
        sat2 = sat2 + 1
    End If
Next
sh.Select
Application.ScreenUpdating = True
MsgBox "Aktarma yapıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[enrealman]

Cevap için teşekkür ederim. Ama maliyet sayfasındaki F sutunundaki verileri proforma sayfasında I sutununda görünür yapmam için ne yapmam gerekir?

 

[Orion1]

maliyet sayfasında C sutununda sadece veri bulunan satırların A,B,C ve G sutunundaki verileri, PROFORMA sayfasında karşılık gelen sutunlara otomatik aktarılmasını nasıl yapabilirim.

Cevap için teşekkür ederim. Ama maliyet sayfasındaki F sutunundaki verileri proforma sayfasında I sutununda görünür yapmam için ne yapmam gerekir?

Yukarıdaki mesajınızda böyle bir isteğiniz yoktu.Olsaydı yapardım.