eastking
Üye
- Katılım
- 8 Kas 2008
- Mesajlar
- 42
- Puanları
- 1
- Yaş
- 37
Herkese kolay gelsin,
Visual Basic ile bir program yazmaya çalışıyorum fakat takıldığım iki nokta var.
1. visual basic ile mevcut xlsx dosyalarını açmakta sıkıntı yaşamıyorum ama text1.text e yazılan dosya adı ile yeni xlsx dosyası yaratamıyorum. Örneğin,
Dim x, a, mes
kitapyolu = "C:\istakip\eastking.xlsx"
Workbooks.Open (kitapyolu)
Sheets("islistesi").Select
Range("A1").Select
x = WorksheetFunction.Count(Range("A1:A65000")) + 1
a = (ActiveCell.Offset(0, 5).Value) + 1
ActiveCell.Offset(a, 1).Value = Text1.Text
ActiveCell.Offset(a, 2).Value = Text2.Text
ActiveCell.Offset(a, 3).Value = Text3.Text
mes = MsgBox("BİLGİLER KAYDEDİLMİŞTİR", vbOKOnly, "GÜNLÜK KAYDI")
ActiveCell.Offset(0, 5).Value = a
şimdi bu program c klasöründeki istakip dosyasının içinden eastking adlı excel dosyasını açıyor ve içine istediğimi yazıyorum.
benim istediğim ise text1 kutusuna eastking yazdığım zaman gidip bu dosyayı açsın ve bu bir döngü içinde olsun yani hangi ismi yazarsam yazayım o dosyaya ulaşsın.
bunun için şöyle bir kod düşündüm.
dim t
t= text1.text
workbooks.open "C:\istakip\t.xlsx"
....
bu kodda da gidip direk t adlı dosyayı açıyor, text1 içine yazdığım dosyayı açmıyor.
bu konuda yardımcı olursanız sevinirim...
herkese iyi çalışmalar
Visual Basic ile bir program yazmaya çalışıyorum fakat takıldığım iki nokta var.
1. visual basic ile mevcut xlsx dosyalarını açmakta sıkıntı yaşamıyorum ama text1.text e yazılan dosya adı ile yeni xlsx dosyası yaratamıyorum. Örneğin,
Dim x, a, mes
kitapyolu = "C:\istakip\eastking.xlsx"
Workbooks.Open (kitapyolu)
Sheets("islistesi").Select
Range("A1").Select
x = WorksheetFunction.Count(Range("A1:A65000")) + 1
a = (ActiveCell.Offset(0, 5).Value) + 1
ActiveCell.Offset(a, 1).Value = Text1.Text
ActiveCell.Offset(a, 2).Value = Text2.Text
ActiveCell.Offset(a, 3).Value = Text3.Text
mes = MsgBox("BİLGİLER KAYDEDİLMİŞTİR", vbOKOnly, "GÜNLÜK KAYDI")
ActiveCell.Offset(0, 5).Value = a
şimdi bu program c klasöründeki istakip dosyasının içinden eastking adlı excel dosyasını açıyor ve içine istediğimi yazıyorum.
benim istediğim ise text1 kutusuna eastking yazdığım zaman gidip bu dosyayı açsın ve bu bir döngü içinde olsun yani hangi ismi yazarsam yazayım o dosyaya ulaşsın.
bunun için şöyle bir kod düşündüm.
dim t
t= text1.text
workbooks.open "C:\istakip\t.xlsx"
....
bu kodda da gidip direk t adlı dosyayı açıyor, text1 içine yazdığım dosyayı açmıyor.
bu konuda yardımcı olursanız sevinirim...
herkese iyi çalışmalar
