aydgur
Altın Üye
- Katılım
- 31 Ekim 2005
- Mesajlar
- 431
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-03-2028
Sub sonerolaktarma()
Sheets("ANASAYFA").Select
For x = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[A65536].End(3).Row + 1
Select Case s2.Name
Case "imalat":
For y = 1 To 41
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Case "kasa":
s2.Cells(sira, 1) = Cells(x, "D")
s2.Cells(sira, 2) = Cells(x, "J")
s2.Cells(sira, 3) = Cells(x, "M")
Case Else:
For y = 1 To 9
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
End Select
Next x
Sheets("ANASAYFA").Select
Range("A2:H80").ClearContents
Range("J2:J80").ClearContents
Range("B2:B80").Value = CDate(Format((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu formülde aktarma yapmak için ANASAYFA nın A2 sindeki Sayfa adını referans alıyor,fakat ben eğerF 2hücresinde ÇEK yazıyorsa onu referans alıp çek sayfasına ANASAYFA nın K,L,M,N,O,P,Q,R sütunundaki bilgileri aktarsın istiyorum ,olabilirmi ?
Sheets("ANASAYFA").Select
For x = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[A65536].End(3).Row + 1
Select Case s2.Name
Case "imalat":
For y = 1 To 41
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Case "kasa":
s2.Cells(sira, 1) = Cells(x, "D")
s2.Cells(sira, 2) = Cells(x, "J")
s2.Cells(sira, 3) = Cells(x, "M")
Case Else:
For y = 1 To 9
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
End Select
Next x
Sheets("ANASAYFA").Select
Range("A2:H80").ClearContents
Range("J2:J80").ClearContents
Range("B2:B80").Value = CDate(Format((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu formülde aktarma yapmak için ANASAYFA nın A2 sindeki Sayfa adını referans alıyor,fakat ben eğerF 2hücresinde ÇEK yazıyorsa onu referans alıp çek sayfasına ANASAYFA nın K,L,M,N,O,P,Q,R sütunundaki bilgileri aktarsın istiyorum ,olabilirmi ?