Userformda Veri Alma - Gönderme

[ehmet]

Arkadaşlar ekli örnek dosyada açıklandığı şekilde bir koda ihtiyacım,
yardımcı olursanız sevinirim.
teşekkürler

 

[ehmet]

arkadaşlar, ustalarım
olmayacak bir şey mi yoksam kimse uğraşmaya değer mi bulmadı,
usta arkadaşlar en azından bir fikir belirtseler ne yapmaya çalıştığımı anlarım.

 

[Ömer]

Merhaba,

Sorunuz anlaşılmıyor. Formda bu şekilde bir düzen göremedim.

Ben kodları hücreye göre yazayım siz forma uyarlarsınız.

Sub Yaz()
 
Range("K4:K" & Rows.Count).ClearContents
 
ay = DateDiff("m", [J4], [J6]) + 1
 
sat = 4
For i = 1 To ay
    Cells(sat, "K") = DateAdd("m", i - 1, [J4])
    sat = sat + 1
Next i
 
End Sub

.

 

[ehmet]

Merhaba,

Sorunuz anlaşılmıyor. Formda bu şekilde bir düzen göremedim.

Ben kodları hücreye göre yazayım siz forma uyarlarsınız.

Sub Yaz()
 
Range("K4:K" & Rows.Count).ClearContents
 
ay = DateDiff("m", [J4], [J6]) + 1
 
sat = 4
For i = 1 To ay
    Cells(sat, "K") = DateAdd("m", i - 1, [J4])
    sat = sat + 1
Next i
 
End Sub

.

merhabalar;
ilginize teşekkürler..
esas dosyayı ekleyemediğim için, sanırım tam anlatamamışım ama kodlar işimi gördü...
Ancak bu ayları başka sayfaya yazdırmam lazım, onu çözemedim... örneğin sayfa2 de k4 ten yazacak, baştan söylemediğim için özür dilemeliyim ama çözebileceğimi sanıyordum...

 

[ehmet]

sanırım çözdüm üstadım teşekkürler,
şimdi ana dosyama ekleyeceğim, umarım bir terslik olmaz..
tekrar teşekkürler