- Katılım
- 20 Şubat 2006
- Mesajlar
- 259
Benim çalışma kitabım bir başka çalışma kitabından birazcık bilgi alıyor.
Çalışma kitabımın aşağıdaki makro tuşuna bastığımda yeni sayfalar açıyor, problem bu 500 tane çalışma sayfasını açmada hata vermesi.
Her yani sayfanın açılmasında O1 hücresine açılan yeni sayfanın adını veriyor.
Sizce hata nerden kaynaklanıyor.
Bu makroyu kullanmamın sebebi ise, her sayfa ayrı bir adama ait. O1 numarası ise adamın ID si. ID ye bağlı olarakta adama ait diğer bilgiler başka kitabdan alınıp dolduruluyor. Bunun daha pratik bir çözümünü bileniniz var mı? Yardımınız için teşekkürler. Saygılarımla...
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Say = Worksheets.Count
For X = Say To Say + 500
Sheets("0000").Select
Sheets("0000").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Format(X, "0000")
ActiveSheet.[O1].Select
Selection.NumberFormat = "0000"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveSheet.[O1] = ActiveSheet.Name
Next
Sheets("0000").Select
Application.ScreenUpdating = True
End Sub
Çalışma kitabımın aşağıdaki makro tuşuna bastığımda yeni sayfalar açıyor, problem bu 500 tane çalışma sayfasını açmada hata vermesi.
Her yani sayfanın açılmasında O1 hücresine açılan yeni sayfanın adını veriyor.
Sizce hata nerden kaynaklanıyor.
Bu makroyu kullanmamın sebebi ise, her sayfa ayrı bir adama ait. O1 numarası ise adamın ID si. ID ye bağlı olarakta adama ait diğer bilgiler başka kitabdan alınıp dolduruluyor. Bunun daha pratik bir çözümünü bileniniz var mı? Yardımınız için teşekkürler. Saygılarımla...
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Say = Worksheets.Count
For X = Say To Say + 500
Sheets("0000").Select
Sheets("0000").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Format(X, "0000")
ActiveSheet.[O1].Select
Selection.NumberFormat = "0000"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveSheet.[O1] = ActiveSheet.Name
Next
Sheets("0000").Select
Application.ScreenUpdating = True
End Sub