Tıklanıldığında Hücredeki Rakamları Yazma

[newmoonstar]

Arkadaşlar EK'te bir çalışma sayfası var ve bir makro hazırlayarak butona tıklanıldığında Sayfa2'deki F5 ve F6 hücrelerini Sayfa3'teki C2 ve D2 hücrelerine ve alt alta; Sayfa2'deki F7 ise Sayfa3'teki G2 ve alt alta hücresine yazılacak...

BU MÜMKÜN MÜ?

 

[newmoonstar]

EK

ArkadaŞlar Ekİ DÜzenleyİp Tekrar Yolladim...
Saygilar...

 

[Ali]

Bir butona aşağıdaki kodları ekleyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa3")
son = s2.Cells(65536, 3).End(xlUp).Row + 1
s2.Cells(son, 3) = s1.Cells(5, 6)
s2.Cells(son, 4) = s1.Cells(6, 6)
s2.Cells(son, 7) = s1.Cells(7, 6)
End Sub

 

[pacificline_22]

selam

sayın ali bende bu konu hakkında çalışma yaptım vba yı yeni öğrendiğim için incelediğim örneklerden öğrendiklerimle denedim benim size sorum ben 3. sayfdaseçili sütünun bir altına geçmesi için dögü kullnadım

Do While Not Isempty(Activecell)
Activecell.Offset(1,0).Select
Loop

siz farklı bişey kullanmışsınız
son = s2.Cells(65536, 3).End(xlUp).Row + 1

acaba iki kod arsında ki fark nedir (ikiside aynı işe mi yarar)? birde vba yı yeni öğrendiğim için yazılan kodların anlamlarını açıklarsanız sevinirim. yazdığınız kodu hiç anlayamadım

 

[Ali]

Set s1 = Sheets("Sayfa2")

Set s2 = Sheets("Sayfa3")

s1 ve s2 değişkenlerine Sayfa adlarını atadık.

son = s2.Cells(65536, 3).End(xlUp).Row yani

son = Sheets("Sayfa3").Cells(65536, 3).End(xlUp).Row

buradaki 3 C sütununu belirtmektedir End(xlUp).Row ise son satırı

belirtmektedir ama biz butona klik yaptığımızda veriyi son verinin üzerine

yazmaması gerekmemektedir.. Son satırın bir altına kaydetmesini istiyoruz bu

durumda bu satırı son = s2.Cells(65536, 3).End(xlUp).Row + 1

şeklinde düzenlememiz gerekmektedir.

Peki son satırı bulduk buraya hangi sayfadaki veriler yazılacak Sayfa2'deki

s1.Cells(5, 6) hücresindeki veri yani 5 satır 6 sütundaki veri yazılacak buda

F5 hücresine denk gelmektedir.Diğer verilerde

s2.Cells(son, 4) = s1.Cells(6, 6)

s2.Cells(son, 7) = s1.Cells(7, 6)

aynı mantığa göre yazılacaktır.

 

[pacificline_22]

selam

sayın ali bu güzel açıklamanız için size çok teşekkür ederim.

 

[newmoonstar]

Teşekkür

Rabbim muvaffak etsin...
Allah razı olsun..