Teknoloji Haberleri
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, 1 mobil kullanıcı
7
Cevap 795
Tıklama 0
Öne Çıkarma
Cevap 795
Tıklama 0
Öne Çıkarma
1. sayfa
-
Lütfen bu kodlara bakarak yardımcı olabilirmisiniz
1. sayfa
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 Ol Şimdi DeğilÜ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.
< Bu mesaj bu kişi tarafından değiştirildi mehmettr -- 9 Aralık 2009; 9:16:02 >