anasayfadakı degerlerı diğer sayfaya kaydetme

[mesutalkan]

merhaba ekte olsuturdugum arıza kaydı adlı dosyada ılk sayfadakı verı gırıslerını ıkıncı sayfaya ılgılı satırlara kaydetsın ıstıyorum bunu nasıl yapabılırım

hatta mumkunse sadece ılk sayfadakı sablon program gıbı gosuksun

yardımcı olabılırmısınız

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kaydet()
Dim S1 As Worksheet, S2 As Worksheet, STR As Long
Set S1 = Sheets("arıza kaydı")
Set S2 = Sheets("arıza listesi")
STR = S2.Range("A" & Rows.Count).End(xlUp).Row + 1
If STR <= 4 Then
STR = 5
End If
S2.Range("A" & STR) = S1.Range("B5")
S2.Range("B" & STR) = S1.Range("C5")
S2.Range("C" & STR) = S1.Range("D5")
S2.Range("D" & STR) = S1.Range("B9")
S2.Range("E" & STR) = S1.Range("C9")
S2.Range("F" & STR) = S1.Range("C13")
S2.Range("G" & STR) = S1.Range("D9")
S2.Range("H" & STR) = S1.Range("B16")
S2.Range("I" & STR) = S1.Range("B13")
S2.Range("J" & STR) = S1.Range("G9")
S2.Range("K" & STR) = S1.Range("G5")
S2.Range("L" & STR) = S1.Range("H5")
S2.Range("M" & STR) = S1.Range("F12")
S2.Range("N" & STR) = S1.Range("F16")
S2.Range("O" & STR) = S1.Range("F9")
MsgBox "İşlem Tamamlandı"
End Sub

Not : Dosyayı kaydederken makro içerebilen dosya şeklinde kayıt yapmayı unutmayınız.

 

[mesutalkan]

ILGINIZ ICIN COK TESEKKURLER
evet kısmı olarak ıstedıgım bu ancak her defasında bır alt satıra gecmesını nasıl saglarım mesela bır kaydet butonu olsa ve ona bastıgımda bılgılerı aktarsa ve ekrandakı bılgılerı bosaltıp yenı deger gırmeye hazır hale getırebılırsek

 

[mesutalkan]

Bu şekilde olabılırmı

 

[asi_kral]

ILGINIZ ICIN COK TESEKKURLER
evet kısmı olarak ıstedıgım bu ancak her defasında bır alt satıra gecmesını nasıl saglarım mesela bır kaydet butonu olsa ve ona bastıgımda bılgılerı aktarsa ve ekrandakı bılgılerı bosaltıp yenı deger gırmeye hazır hale getırebılırsek

Zaten alt alta kayıt yapıyor sadece kaydettikten sonra hücreleri silmiyor.

 

[mesutalkan]

Zaten alt alta kayıt yapıyor sadece kaydettikten sonra hücreleri silmiyor.

bılgıler yarım kalıncada verıyı yarım kaydedıyor kaydetme bır butonlz yzpılırsa daha kontrollu olurdu

 

[asi_kral]

bılgıler yarım kalıncada verıyı yarım kaydedıyor kaydetme bır butonlz yzpılırsa daha kontrollu olurdu

Sizce nasıl butonsuz mu_?
Bir butona atayın kodu öyle kullanın. Dilediğiniz zaman çalıştırın.

 

[mesutalkan]

bunu nasıl gerceklestırebılırım butona atamayı

 

[asi_kral]

bunu nasıl gerceklestırebılırım butona atamayı

Kodu boş bir module ekleyin. Sayfa üzerine bir düğme ekleyin. Ona kodu atayın ve kullanın.

Boş module ekleme http://www.excel.web.tr/f157/modul-ekleme-resimli-anlatym-t73353.html

Düğme ekleme ve makro atama http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t59436.html

 

[mesutalkan]

cok guzel oldu tesekkur ederım hersey ıcın

 

[asi_kral]

cok guzel oldu tesekkur ederım hersey ıcın

Kolay Gelsin.

 

[BURSAA]

Merhaba

,

Arkadaşlar,

Excelde bir denetim tablosu oluşturdum. tabloda denetim tarihleri yer alıyor. ikinci denetim tarihi geçtiği zaman uyarı vermesini istiyorum.. bunu nasıl yapabilirim.
şimdiden teşekkürler ve iyi çalışmalar..

 

[mesutalkan]

bıraz daha gelıstırebılırmıyız

bıraz daha gelıstırebılırmıyız