Bilgi aktar

[sedat2161]

İyiçalışmalar. Aşağıda yazılı kodda s1-Bilgi,s2 SGK adında iki sayfam var. s3 Bordro adında bir sayfa açtım. oradaki bazı bilgileride s2 deki SGK sayfasına aktarmak istiyorum. Yanlız
Borro sayfasından aktaracağım bilgiler 6. satırdan başlıyor. Yardımcı olursanız çok sevinirim.
Sub SGK_4YuvarlatılmışDikdörtgen_Tıklat()
Dim s1, s2 As Worksheet
Dim son1, son2 As Long
Set s1 = Sheets("BİLGİ")
Set s2 = Sheets("SGK")
son1 = s1.Cells(Rows.Count, 3).End(xlUp).Row
s2.Range("C16:I1703").ClearContents

a = 14
For i = 2 To son1
s2.Cells(a, 3) = s1.Cells(i, 17)
s2.Cells(a, 4) = s1.Cells(i, 18)
s2.Cells(a, 6) = s1.Cells(i, 2)
s2.Cells(a, 7) = s1.Cells(i, 3)
s2.Cells(a, 8) = s1.Cells(i, 4)
s2.Cells(a, 9) = s1.Cells(i, 5)
s2.Cells(a, 10) = s1.Cells(i, 19)
s2.Cells(a, 12) = s1.Cells(i, 20)
a = a + 1
Next i
End Sub

 

[askm]

Örnek dosyanız olsa daha kesin çözüm olur. Kodlarınızda Set s3 = Sheets("Bordro") tanımlaması yapılmamış. Yani kodlarınızda s3 ile ilgili bir işlem yok.

 

[sedat2161]

Örnek dosyanız olsa daha kesin çözüm olur. Kodlarınızda Set s3 = Sheets("Bordro") tanımlaması yapılmamış. Yani kodlarınızda s3 ile ilgili bir işlem yok.

Iyi akşamlar. ekli dosyamdan bordro sayfasından e6 ve g6 daki bilgiler sgk sayfasındaki j14 ve l 14 sütunlarına aktarılması gerekiyor. Yanlız bu kod üzerinde çalışılısa iyi olur. Çünkü diğer sayfalardaki kodlarda buna benzer bazen değişik oluyor. zorda olsa bunları öğrendim. şimdiden teşekkürler

 

[askm]

Sub SGK_4YuvarlatılmışDikdörtgen_Tıklat()
Dim s1, s2, s3 As Worksheet
Dim son1, son2 As Long
Set s1 = Sheets("BİLGİ")
Set s2 = Sheets("SGK")
Set s3 = Sheets("BORDRO")
Application.ScreenUpdating = False
son1 = s1.Cells(Rows.Count, 3).End(xlUp).Row
son2 = s3.Cells(Rows.Count, 3).End(xlUp).Row
s2.Range("C16:I1703").ClearContents
s2.Range("j14:j" & son2).ClearContents
s2.Range("I14:I" & son2).ClearContents
s2.Range("E10") = s1.Range("H3").Value & "  MAAŞ ÖDEMESİ"
a = 14
For i = 2 To son1
    s2.Cells(a, 6) = s1.Cells(i, 2)
    s2.Cells(a, 7) = s1.Cells(i, 3)
    s2.Cells(a, 8) = s1.Cells(i, 4)
    s2.Cells(a, 9) = s1.Cells(i, 5)
    a = a + 1
Next i
For x = 6 To son2
    s2.Cells(x + 8, "J") = s3.Cells(x, "E")
    s2.Cells(x + 8, "I") = s3.Cells(x, "g")
Next x
Application.ScreenUpdating = True
End Sub

 

[askm]

Yalnız çalışmanızda formül yerine komple makro yapsanız daha iyi olur. Biraz makro biraz kod yavaşlatır ve dosya boyutunu şişirir.

 

[sedat2161]

Yalnız çalışmanızda formül yerine komple makro yapsanız daha iyi olur. Biraz makro biraz kod yavaşlatır ve dosya boyutunu şişirir.

makro hesaplamalarını yapamıyorum. örneğin çarpma, yüzde yardımcı olsanız.

 

[askm]

Ancak akşam bakabilirim.

 

[sedat2161]

Ancak akşam bakabilirim.

Hayırlı sabahlar. Hayırlı işler