Hiçbir arşivde bulunmayan kod

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Excell de yeniyim.Yapmak istediğim şey userform dan hücrelere veri kaydetmek.Ama 12.satırdan sonra yan sütuna geçerek kayda devam edecek yine 12 satır yazdıktan sonra bir yan sütuna geçecek.Bu döngü sürekli tekrarlanacak.Yanıtlayabilecek arkadaşa şimdiden teşekkürler.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.
Kullandığınız konu başlığı biraz iddialı olmuş bence.
-- Kuvvetle muhtemel veri yazılacak satır için For satir = 1 To 12 gibi bir döngü oluşturmuşsunuzdur,
-- Bu döngüyü bir de sütun için oluşturulacak For sutun = 1 To .... gibi bir döngünün içine alırsanız istediğiniz yapılabilir bir şey.

Sorularınızı, cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlayacağınız bir örnek belge
üzerinden sorarsanız daha hızlı sonuç alabilirsiniz diye düşünüyorum.
.
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Araştırmaya sevk eden bir yazı ama inanın çok yeniyim.Tam kodu yazabilirseniz sevinirim.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Sorularınızı örnek belgeye göre sorarsanız gereksiz karşılıklı yazışma yapılmamış, verilecek cevap için harcanacak emek/zaman boşa gitmemiş olur.
Zira hangi cevap verilirse verilsin, ardından yeni soruların gelmesi kaçınılmaz gibi görünüyor.
İşleme şu satırdan başlaması için neyi değiştirmek gerekir, sütun başlangıcı K sütunu olsun gibi yeni sorular geleceğini düşünüyorum.
Ama yine de bir örnek vereyim.
Aşağıdaki kod D sütunundan J sütununa (7 sütun) ve 6'ncı satırdan 17'nci satıra kadar (12 satır) 1'den başlayarak 84'e kadar 1'er artarak sayılar yazar.
Rich (BB code):
Sub ONIKISATIR_YEDISUTUN_DONGU()
say = 1
For sut = 4 To 10
    For sat = 6 To 17
        Cells(sat, sut) = say
        say = say + 1
    Next
Next
End Sub
 
Son düzenleme:

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Kod çalıştı ama biraz farklı olmuş.Rakam yazmayacak verileri biz giraceğiz.Yine de teşekkürler.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
"TAK-KULLAN" şeklinde kullanabileceğiniz bir userform hazırlamamı beklemiyorsunuzdur inşallah!
İsteğiniz böyle ise bunun adı DESTEK olur mu sizce?

Üçüncü kez yazıyorum:
Sorularınızı, cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda hazırlayacağınız örnek belge üzerinden sorunuz.
.
 
Üst