- Katılım
- 8 Haziran 2007
- Mesajlar
- 761
- Excel Vers. ve Dili
- excel- 2003 Türkçe
Kolay gelsin herkese. Aşağıdaki koda bir ilave isityorum. (sh.Cells(sat, "G").Value = Range("E3").Value) G hücresine E3 hücresi ile birlikte aralarında "/" taksim işareti ile ayrılmış olarak F3 hücresindeki veride gelsin istiyorum.
Range("Yazdırma_Alanı").PrintOut
sh.Cells(sat, "B").Value = Range("E2").Value
sh.Cells(sat, "D").Value = Range("E5").Value
sh.Cells(sat, "C").Value = Range("E6").Value
sh.Cells(sat, "E").Value = Range("E27").Value
sh.Cells(sat, "F").Value = Range("E29").Value
sh.Cells(sat, "G").Value = Range("E3").Value
sh.Cells(sat, "H").Value = Range("F4").Value
Range("E2:G6").ClearContents
Sheets("Staj_Belgesi").Select
Range("E2").Select
Range("Yazdırma_Alanı").PrintOut
sh.Cells(sat, "B").Value = Range("E2").Value
sh.Cells(sat, "D").Value = Range("E5").Value
sh.Cells(sat, "C").Value = Range("E6").Value
sh.Cells(sat, "E").Value = Range("E27").Value
sh.Cells(sat, "F").Value = Range("E29").Value
sh.Cells(sat, "G").Value = Range("E3").Value
sh.Cells(sat, "H").Value = Range("F4").Value
Range("E2:G6").ClearContents
Sheets("Staj_Belgesi").Select
Range("E2").Select
