Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi mehmettr -- 9 Aralık 2009; 9:16:02 > |
Hızlı 
Bildirim
Lütfen bu kodlara bakarak yardımcı olabilirmisiniz
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Private Sub Command1_Click()
Dim exEE As Excel.Application
Set exEE = CreateObject("excel.application")
exEE.Workbooks.Open (App.Path & "\Kitap.xls")
Dim i As Integer
i = 1
Do While i < 10000
If exEE.Cells(i, 8).Value = "" Then
Exit Do
End If
i = i + 2
Loop
exEE.Cells(i, 8) = Text1.Text
exEE.Cells(i+1, 8) = Text2.Text
exEE.Visible = True
Excel.Application.Quit
End Sub -
Arkadaşı Düzeltmiş olduğun kod gerçekten işime yaradı. ANCAK Eksiklik var.
Bu EKSİKLİK Dolu ise ilk hücreyi atlayıp Hemen bir alyındakiHücreyi seçmesini ve Buraya bir SATIR ekleyerek o satıra Yazmasını istiyorum. SAYGILARIMLA -
quote:
Orijinalden alıntı: mehmettr
Arkadaşı Düzeltmiş olduğun kod gerçekten işime yaradı. ANCAK Eksiklik var.
Bu EKSİKLİK Dolu ise ilk hücreyi atlayıp Hemen bir alyındakiHücreyi seçmesini ve Buraya bir SATIR ekleyerek o satıra Yazmasını istiyorum. SAYGILARIMLA
neden satır ekleneceğini anlamadım.
ilk boş gözü bulup oraya ve bir alttaki göze iki textbox'tan gelen değerleri atamak değil mi amaç?
yani, e1'den e8'e kadar dolu ise e9 ve e10'a atmak değil mi?
senin iliştirdiğin kod yaklaşık bunu yapıyordu... -
Arkadaşım gercekten ilgilenip cevap verdiğin için çok teşekkür ediyorum.
Satır eklemeyi şunun için istiyorum Benim hazır Excel tablom var. Kişilerle ilgili bilgileri giriyorum. Her satırda ayrı bir kişinin bilgileri yer alıyor. Bu toplam 100- 150 kadar kişi var. Bazen kişilerin başka yerlere gidiş geliş ve nereye gittiği eklenecek. Aynı kişini 5-6 kere gidip geldiğinde her satırda rahatca izleme yapılabilecek.
Ama Üsteki kodlarla olursa girilen bilgiler diğer kişilerin bilgileri ile karışıyor.
SAYGILAR -
satır eklemeyi
exEE.Rows(i).EntireRow.Insert()
kodu ile yapabilirsin.
birden fazla satır ekleme işini, sadelik adına kaldırdım.
eğer öyle bir durum varsa sen eklersin istediğin kadar.
kod, sekizinci kolonu boş ilk satırı bulup buraya bir satır ekliyor ve eklediği satırı değiştiriyor.
Private Sub Command1_Click()
Dim exEE As Excel.Application
Set exEE = CreateObject("excel.application")
exEE.Workbooks.Open (App.Path & "\Kitap.xls")
Dim i As Integer
i = 1
Do While i < 10000
If exEE.Cells(i, 8).Value = "" Then
Exit Do
End If
i = i + 1
Loop
exEE.Rows(i).EntireRow.Insert()
exEE.Cells(i, 8) = Text1.Text
exEE.Visible = True
Excel.Application.Quit
End Sub
-
Program Çalıştırılınca satır ekleme kodu hata veriyor -
kodu excel 2002'de deneyip gönderdim. sürüm farkı olabilir.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
