Excel'de Grid Kullanımı !!!

[hyilmaz076]

Arkadaşlar formülü oluşturdum ama bir noktada takıldım bakabilirseniz sevinirim...

Private Sub Kaydet_Click()
.....
... Burada siparis sayfasına kaydetme ile ilgili kodlar bulunuyor.
..
Sheets("Siparis").Activate
dosyaoku
End Sub

Private Sub dosyaoku()
On Error GoTo 10
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Siparis").Copy
Workbooks.Open Filename:="C:\program files\e-makro\data\" & ComboBox1.Text & ".xls" 'böyle bir dosya varmı kontrol ettiriyoruz
???????????????????? İşte Tam Burası buraya siparis sayfasını yeni sayfa açarak kaydetmesi gerekmekte ama kodu bir türlü oturtamadım
On Error Resume Next
ActiveWorkbook.Save
ActiveWindow.Close
10 yenidosya 'Eğer dosya yoksa yeni açmak için gidiyor (Ama varsa'da burayı pas geçemediği için yine sanki dosya yokmuş gibi gidiyor)
End Sub

Private Sub yenidosya()
MsgBox "Dosya Bulunamadı!! Yeni Dosya Oluşturuluyor"
Sheets("Siparis").Copy
ActiveWorkbook.SaveAs Filename:="C:\program files\e-makro\data\" & ComboBox1.Text & ".xls"
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Arkadaşlar lütfen yardım edin !!
Dakika Doksan'a Geldik

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:7b9d9c8adf]Private Sub dosyaoku()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo 10
Workbooks.Open Filename:="C:\program files\e-makro\data\" & Combobox1.Text & ".xls"
Windows("MEVCUT KİTABINIZIN ADI").Activate
Sheets("Siparis").Copy Before:=Workbooks(Combobox1.Value & ".xls").Sheets(1)
ActiveWorkbook.Save
ActiveWindow.Close
Exit Sub
10 MsgBox "Dosya Bulunamadı!! Yeni Dosya Oluşturuluyor"
ActiveWorkbook.SaveAs Filename:="C:\program files\e-makro\data\" & Combobox1.Text & ".xls"
Windows("MEVCUT KİTABINIZIN ADI").Activate
Sheets("Siparis").Copy Before:=Workbooks(Combobox1.Value & ".xls").Sheets(1)
ActiveWorkbook.Save
ActiveWindow.Close
End Sub[/vb:1:7b9d9c8adf]

 

[hyilmaz076]

Sayın leventm elinize sağlık... küçük bir işlem kaldı sanırım !


Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo 10
Workbooks.Open Filename:="C:\program files\e-makro\data\" & ComboBox1.Text & ".xls" 'dosya var ise buluyor sorun yok
Windows("Anamenü").Activate
Sheets("Siparis").Copy Before:=Workbooks(ComboBox1.Value & ".xls").Sheets(1)
ActiveWorkbook.Save
ActiveWindow.Close
Exit Sub
10 MsgBox "Dosya Bulunamadı!! Yeni Dosya Oluşturuluyor" 'Dosya olduğu halde hatta üst satırda aktif ettiği halde yokmuş gibi davranıp aşağıdaki işlemi uygulamaya çalışıyor ve hata veriyor
ActiveWorkbook.SaveAs Filename:="C:\program files\e-makro\data\" & ComboBox1.Text & ".xls"
Windows("Anamenü").Activate
Sheets("Siparis").Copy Before:=Workbooks(ComboBox1.Value & ".xls").Sheets(1)
ActiveWorkbook.Save
ActiveWindow.Close

on error sistemini düzenleyebilirsek sanırım sorunsuz çalışacak.
Ayrıca sheets(1) ile belirlenen yerlere combolardan birinin adını verebilirmiyiz.

 

[ccumhur]

grid(data flex) kullanımı

Arkadaşlar eski(http://www.excel.web.tr/viewtopic.php?p=39163) linkler silinmiş elinde çalışması olan yeniden gönderebilirmi?