Lütfen bu kodlara bakarak yardımcı olabilirmisiniz

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Lütfen bu kodlara bakarak yardımcı olabilirmisiniz

Bu konudaki kullanıcılar: 1 misafir

7
Cevap 793
Tıklama 0
Öne Çıkarma

1. sayfa

Lütfen bu kodlara bakarak yardımcı olabilirmisiniz

Cevap Yaz

mehmettr

16 yıl

Teğmen

Konu Sahibi

Lütfen bu kodlara bakarak yardımcı olabilirmisiniz.

Private Sub Command1_Click()
Dim exEE As Excel.Application

Set exEE = CreateObject("excel.application")
exEE.Workbooks.Open (App.Path & "\Kitap.xls")

If exEE.Cells(6, 8) = "" Then
exEE.Cells(6, 8) = Text1.Text
exEE.Cells(7, 8) = Text2.Text

Else
exEE.Cells(8, 8) = Text1.Text
exEE.Cells(9, 8) = Text2.Text
End If

exEE.Visible = True
Excel.Application.Quit

End Sub

Yukarıda vermiş olduğum kodlarla Formdaki Text1 ve Text2 deki verileri Excele yazdırıyorum. Burası tamam.

İkinci defa yazdırdığımda yazılan hücrenin dolu olup olmadığını konturol etmesi ve dolu ise bir altındaki hücreyi seçip bir SATIR EKLEMESİNİ ve oraya yazmasını istiyorum . Her yazdığımda Bir alta incek ve oraya bir satır ekleyip yazacak. Bana bu konuda yardımcı olursanız size minnettar olurum. SAYGILARIMLA

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi mehmettr -- 9 Aralık 2009; 9:16:02 >

recaihercai

16 yıl

Teğmen

 
  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

Bu mesaja 1 cevap geldi.

mehmettr

16 yıl

Teğmen

Konu Sahibi

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

Bu mesaja 1 cevap geldi.

recaihercai

16 yıl

Teğmen

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...

Bu mesaja 1 cevap geldi.

mehmettr

16 yıl

Teğmen

Konu Sahibi

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

Bu mesaja 1 cevap geldi.

recaihercai

16 yıl

Teğmen

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

Bu mesaja 1 cevap geldi.

mehmettr

16 yıl

Teğmen

Konu Sahibi

Program Çalıştırılınca satır ekleme kodu hata veriyor

Bu mesaja 1 cevap geldi.

recaihercai

16 yıl

Teğmen

kodu excel 2002'de deneyip gönderdim. sürüm farkı olabilir.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Lütfen bu kodlara bakarak yardımcı olabilirmisiniz