Skip to main content

AccessTr.neT


Aynı anda iki veritabanına kayıt hk.

Aynı anda iki veritabanına kayıt hk.

Çözüldü #7
(12/12/2011, 10:29)alpeki99 yazdı:
sayfa.Sheets("Sayfa1").range("B2") = TextBox1.Text + 1

şeklinde olmayacak. Range("B2") bölümünde eğer B3,B4,B5 gibi +1 arttırırsanız alt satıra geçecektir.


sayfa.Sheets("Sayfa1").range("B2 + 1") = TextBox1.Text 

Böylemi olacak
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
B2 değeri yerine değişken kullanıp For döngüsü içinde +1 arttırmanız gerekmektedir.

alan = 2
For i = 1 To 10

sayfa.Sheets("Sayfa1").range("B" & alan+1) = yazılacak değer.

Next i

Buna benzer bir yapı kurmalısınız.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #9
Merhaba;


Dim Son As Integer

satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))

satirsayisi = satirsayisi + 1

Son = 5 // Yazdırılacak olan satir sayisi yazılmalı

For i = satirsayisi To Son

Sheets("Sayfa1").Range("A" & i) = "Yazılacak Değer"

Next

excel'de son satıra ben bu şekilde yazdırıyorum.

Kolay gelsin.
Cevapla
Çözüldü #10
(12/12/2011, 20:37)schworse yazdı: Merhaba;


Dim Son As Integer

satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))

satirsayisi = satirsayisi + 1

Son = 5 // Yazdırılacak olan satir sayisi yazılmalı

For i = satirsayisi To Son

Sheets("Sayfa1").Range("A" & i) = "Yazılacak Değer"

Next

excel'de son satıra ben bu şekilde yazdırıyorum.

Kolay gelsin.

(12/12/2011, 15:25)alpeki99 yazdı: B2 değeri yerine değişken kullanıp For döngüsü içinde +1 arttırmanız gerekmektedir.

alan = 2
For i = 1 To 10

sayfa.Sheets("Sayfa1").range("B" & alan+1) = yazılacak değer.

Next i

Buna benzer bir yapı kurmalısınız.

Bu ikisindede sonuca ulaşamadım acaba hata bendemi ?

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #11
Dim alan As Integer
Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
dosya.Visible = True

alan = 2
For i = 1 To 10

sayfa.Sheets("Sayfa1").range("B" & alan + 1) = TextBox1.Text
sayfa.Sheets("Sayfa1").Activate()
Next i


Böyle yapıyorurum eklediğim verileri excelde hep üstü üste aynı satıra yazıyor. Yani veri yazıldıktan sonra sonraki satıra geçip ekleme yapmıyor. Img-cray
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #12
Sadece bu işi yapan formlarınızı ekleyin o şekilde kontrol edelim. Benim yazdığımı kafadan hızlıca yazdığım için eksik var. For döngüsü içinde B sütunundan sonraki sayı 1 artacağı için ben orada katmayı unutmuşum. Schworse hocamın yazdığı kodda ki gibi döngüde sütun yanındaki sayıyı arttıracak bir sayı gelecek. Schworse hocam For'un parametresini vermiş o şekilde kullanabilirsiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task