Kod: Dim exEE, i, satir, sutun Private Sub Form_Load Set exEE = CreateObject exEE. Workbooks. Open exEE. Visible = True End Sub Private Sub Form_Unload exEE. Application. Quit End Sub Private Sub Command1_Click sutun = 8 satir = 6 For satir = 6 To 1048576 Step 1 If exEE. Cells = "" Then Exit For Next For j = satir + 1 To 1 Step -1 exEE. Cells(j + 2, sutun) = exEE. Cells Next exEE. Cells(6, 8) = Text1. Text exEE. Cells(7, 8) = Text2. Text End Sub bu kod tex1 ve text2 yi alt alta 6,8 ve 7,8 hücresine kaydediyor yeni bir yazı gönderince diğerlerini alta kaydırıyor buna göre textbox ekleyebilir ve başka veri göndermek istiyorsan ekleyebilirsin.

Kod: Dim exEE, i Private Sub Form_Load Set exEE = CreateObject exEE. Workbooks. Open End Sub Private Sub Form_Unload exEE. Application. Quit End Sub Private Sub Command1_Click 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 End

Kod: Dim exEE, i, satir, sutun Private Sub Form_Load Set exEE = CreateObject exEE. Workbooks. Open End Sub Private Sub Form_Unload exEE. ActiveWorkbook. Save exEE. Application. Quit End Sub Private Sub Command1_Click sutun = 8 satir = 6 For satir = 6 To 1048576 Step 1 If exEE. Cells = "" And exEE. Cells(satir, sutun + 1) = "" Then Exit For Next For j = satir + 1 To 1 Step -1 exEE. Cells(j + 1, sutun) = exEE. Cells exEE. Cells(j + 1, sutun + 1) = exEE. Cells(j, sutun + 1) Next exEE. Cells(6, 8) = Text1. Text exEE. Cells(6, 9) = Text2. Text End Sub yanyana ekliyor ve kapatınca kaydediyor. dosya arkaplanda açılıyor ekranda görünmüyor. Kod: exEE. ActiveWorkbook. Save dosyayı kaydetme

ben bu kodu çalıştırdığımda aynı klasörde bulunan dosyayı açarak ona yazıyor ve eğer dolu ise bir alt satıra yazıyordu. üst üste yazmada da bir problem çıkmıyordu. denemeden eklemiyorum

Evet istediğim gibi olmuş çok teşekkür ederim. Kızmassanız birde ben bu kodu Comboboxa baglamak istiyorum. Combo1 de Birden yüze kadar sayılar var. Herbir sayı bir kişiyi temsil ediyor. Yukarıdaki KOD bir kişinin verisini kayıt eder. Ben Combo1 e bağlayarak diğerlerinide Herkezin kendi HÜcrelerine yazdırmalıyım SAYGILAR.

Lütfen bu kodlara bakarak yardımcı olabilirmisiniz. Private Sub Command1_Click Dim exEE As Excel. Application Set exEE = CreateObject exEE. Workbooks. Open 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 -

Kod: Dim exEE, i, satir, sutun Private Sub Form_Load Set exEE = CreateObject exEE. Workbooks. Open exEE. Visible = True End Sub Private Sub Form_Unload exEE. Application. Quit End Sub Private Sub Command1_Click sutun = 1 satir = 1 For satir = 1 To 1048576 If exEE. Cells = "" Then Exit For Next exEE. Cells = Text1. Text End Sub bu kod tex1 içindeki veriyi 1,1 hücresine kaydediyor son yazılanı boş olan en son satıra ekliyor Kod: Dim exEE, i, satir, sutun Private Sub Form_Load Set exEE = CreateObject exEE. Workbooks. Open exEE. Visible = True End Sub Private Sub Form_Unload exEE. Application. Quit End Sub Private Sub Command1_Click sutun = 1 satir = 1 For satir = 1 To 1048576 If exEE. Cells = "" Then Exit For Next For j = satir To 1 Step -1 exEE. Cells(j + 1, sutun) = exEE. Cells Next exEE. Cells(1, 1) = Text1. Text End Sub bu kod tex1 içindeki veriyi 1,1 hücresine kaydediyor bu kod yazılanları kaydırıp ilk satıra ekliyor doğru anladıysam bunlardan birini istiyorsun.

İkinci Yazmış olduğun KOD Daha çok işime yarayacak. Çok teşekkür ederim. Yalnız 6 satır 8 Sutuna yazdırırken neresini değiştirecegim. Birde birkaç tane text olunca nasıl olacak

combobox ekledikten sonra Kod: Dim exEE, i, satir, sutun Private Sub Form_Load Set exEE = CreateObject exEE. Workbooks. Open exEE. Visible = True For i = 1 To 100 Combo1. AddItem i Next Combo1. ListIndex = 0 End Sub Private Sub Form_Unload exEE. ActiveWorkbook. Save exEE. Application. Quit End Sub Private Sub Command1_Click sutun = CInt(Combo1. Text) 2 - 1 satir = 6 For satir = 6 To 1048576 Step 1 If exEE. Cells = "" And exEE. Cells(satir, sutun + 1) = "" Then Exit For Next For j = satir + 1 To 1 Step -1 exEE. Cells(j + 1, sutun) = exEE. Cells exEE. Cells(j + 1, sutun + 1) = exEE. Cells(j, sutun + 1) Next exEE. Cells(6, sutun) = Text1. Text exEE. Cells(6, sutun + 1) = Text2. Text End Sub 1 seçilirse 6,1 ve 6,2 ye yazar 2 seçilirse 6,3 ve 6,4 e yazar 3 seçilirse 6,5 ve 6,6 ya yazar... ... ... dolu ise dolu olanları bir alta kaydırır. sanırım istediğiniz böyle

Ustam Eline koluna sağlık. Çok teşekkür ediyorum. Bu kodda tex1 ve text2 yi alt alta değilde yan yana nasıl yaparız. Kodu çalıştırınca Hemen EXCEL sayfası üste çıkıyor. bu olmasın, kendi kaydetsin. İnşallah çok olmamışımdır. SAYGILAR

Hocam kodlar için teşekkürler. Ancak bunlar istediğimi yapmıyor. Dolu ise bir alt hücreyi seçmesi gerekiyor vede Asıl önemli olan Boş bir satır EKLEMESİ ve oraya yazması. Birde üst üste yazdırmak istediğimde (Run-time error '1004') Hatası veriyor. -

Evet Dediğini aynen yapıyor. Diyelimki on tane yazdırdığımızda Her zaman konturol edip enalta yazıyor bu kodlarla. Ben ilk satıra yazdıktan sonra bir altına satır ekleyip yazmasını istiyorum. Diğer yazılanlar alta kayacak.