YAZDIGIM DEGERIN BASKA SAYFAYA AKTARILMASI [Archive] - Excel Forum
PDA

Tüm Versiyonu Göster : YAZDIGIM DEGERIN BASKA SAYFAYA AKTARILMASI

m.gur
03-09-2004, 12:48
Merhaba arkadaşlar;
Benim bir tablom var. Sayfa 1 deki verilerin bir kısmını sayfa 2 ye aktarıyorum. Ancak pek beceremiyorum. Yani sayfa 1 e veri girdiğimde bunu sayfa 2 ye aktaracak ve ben sayfa 1 deki veriyi yenisiyle değiştireceğim. Yani sayfa 1 giriş sayfası sayfa 2 ise kalıcı liste sayfası. Eksilen artan malzemelerin takibi yani. Sayfa 1 e girdiğim verinin otomatik olarak sayfa 2 ye kaydedilmesini istiyorum ben. Bunu nasıl yapabilirim.
Mesela
A1:adı
A2:adet
A3:fiyat
Bunları girdiğimde sayfa 2 de boş satırlara sırayla bunlar girsin. Tekrar sayfa 1 e ben yeni veri girebileyim.
Bir de eksilen miktarı sayfa 1 den nasıl yaparım.
Sanırım anlatabildim. Yardımlarınızı bekliyorum. Saygılar.
:yardim:
hamitcan
03-09-2004, 16:48
VİSUAL BASİC'TE KOD YAZMADA ACEMİ BİRİ OLARAK AÃAÃIDAKİ KODU YAZDIM. GALİBA BÃ?YLE BİRÃEY İSTEDİÃİNİZ MAKRO. EKSİKLİK VARSA DİÃER ARKADAÃLAR LÜTFEN DÜZELTSİN.

Private Sub Worksheet_Change(ByVal Target As Range)
KAYIT1 = Application.CountA(Sheets("SAYFA2").Columns("A:A")) + 1
KAYIT2 = Application.CountA(Sheets("SAYFA2").Columns("B:B")) + 1
KAYIT3 = Application.CountA(Sheets("SAYFA2").Columns("C:C")) + 1


If Target = Cells(2, 1) Then
Sheets("SAYFA2").Cells(KAYIT1, 1) = Target

ElseIf Target = Cells(2, 2) Then
Sheets("SAYFA2").Cells(KAYIT2, 2) = Target

ElseIf Target = Cells(2, 3) Then
Sheets("SAYFA2").Cells(KAYIT3, 3) = Target
End If

ActiveWorkbook.Save
End Sub

NOT:
AYRICA DOSYAYI DA GÃ?NDERİYORUM, HERHALDE DAHA ANLAÃILIR OLACAKTIR.
hamitcan
06-09-2004, 12:25
m.gur arkadaşımıza gönderdiğim dosyadaki kodu biraz değiştirerek tekrar gönderiyorum.Galiba ilki tam düzgün çalışmıyor
BeyazGölge
15-09-2004, 02:15
Hamitcan program çok güzel olmuş ufkumu açmama yardımcı oldu. :bravo:

Acaba ilk sayfada 1 satır değilde 5 satırlık bir girdi yapabilir miyiz. :?:
hamitcan
15-09-2004, 12:13
Aslında bu kodu diğer arkadaşlar eminim çok daha farklı ve daha iyi yazarlar. Kendi bilgilerimle ancak böyle birşey üretebildim. Excel ve visual basic ile amatörce ilgileniyorum, bu benim için bir merak,hobi diyebilirim.
Kod yazarken yanlış mantık yürüttüğüm olabiliyor, arkadaşlar bu durumu mazur görsünler lütfen, gerektiğinde de düzeltmeler yapabilirler.Bunun da benim için çok faydalı olacağını düşünüyorum. Herkese çalışmalarından ötürü teşekkür etmek gerekir herhalde. Çünkü böyle bilginin paylaşıldığı ortamlara Türk milletinin çok ihtiyacı var.

Not isteğiniz dosya ekte, umarım faydalı olur.

Herkese İyi çalışmalar dilerim.
BeyazGölge
15-09-2004, 22:07
hamitcan kardeş teşekkür ederim güzel olmuş.

Sadece pratik için soruyorum :)

Satır ve sütunları for döngüsüyle otomatik olarak yazdıramazmıydık :?:

Yani daha az kodla daha fazla iş yaptıramazmıyız.

Kusura bakma ben öğrenmeye yeni başladım biraz javascript bilgim var ama excel'de makro yazımını muhakkak öğrenmem lazım.
hamitcan
16-09-2004, 08:07
Merhaba beyazgölge,

Bende senin düşündüğünü önce düşündüm, fakat girişin 5 satır olması dolayısıyla bu kodu yazdım. Zannedersem döngüleri kullanmak daha doğru olacaktı .

Galiba benim temel sorunumda bu nerede ,nezaman, neyi kullanmalıyım.
Bu sorunu aşarsam herhalde daha iyi kod yazar duruma gelebilicem.

Sana da çalışmalarında başarılar dilerim.
BeyazGölge
16-09-2004, 16:15
Galiba benim temel sorunumda bu nerede ,nezaman, neyi kullanmalıyım.
Bu sorunu aşarsam herhalde daha iyi kod yazar duruma gelebilicem.


Haklısın herzaman daha iyisi için çalışmak lazım.

Ben senin kodları kullanarak şirket girişi olayını yaptım.

Fakat şirket ismi girilmediği zaman hata mesajı verip kayıdı durdurma olayını yapamadım :(

Tavsiyen varmı.
hamitcan
16-09-2004, 17:16
Sorunu tam anlayamadım.Dosyayı gönderirsen sorununu daha çabuk halledilebiliriz herhalde.

İyi çalışmalar
BeyazGölge
16-09-2004, 18:16
Dosyayı yukarıda göndermiştim :!:

Ãirket eklede ki isim bölümüne değer girilip girilmediğini if ile kontrol edip hata meajı vermeyi beceremedim. Aslında basite benziyor ama maleasef bilmiyor.
Hüseyin
16-09-2004, 18:45
Dosyayı yukarıda göndermiştim :!:

Ãirket eklede ki isim bölümüne değer girilip girilmediğini if ile kontrol edip hata meajı vermeyi beceremedim. Aslında basite benziyor ama maleasef bilmiyor.
Ben dosyaya baktığımda tamamen boş bir dosya çıktı??
BeyazGölge
16-09-2004, 23:48
Afedersiniz Yanlış dosyayı göndermişim :(

Bu sefer Doğrusunu gönderiyorum..
hamitcan
17-09-2004, 08:24
Anladığım kadarıyla 'Ãirket ekle' sayfasında A1 Hücresi boş ise beni uyarsın istiyorsunuz. Dosyayı gönderiyorum galiba istediğiniz gibi oldu.

İyi çalışmalar...
imdatsaral
17-09-2004, 08:38
arkadaşlar

şirket eklenen sayfadan kayıtların olduğu sayfadaki son girilen satırı silebiliyormuyuz

teşekürler

imdat saral
izmir
hamitcan
17-09-2004, 13:50
Silebilirsiniz dosyayı gönderiyorum
imdatsaral
17-09-2004, 14:57
SEVGİLİ HAMİRCAN,

SİLME İÃLEMİNİ HÜCRE OLARAK YAPILABİLİNİRMİ

Ã?RNEÃİN
A DAN O SÜTÜNLARINI KULLANIYORUM BUNLARDAN
A,B,C,F,G,H,K,L SÜTÜNLARDAKİ VERİLERİ SİLMEK İSTİYORUM
DİÃER SUTUNLARDA FORMÜL VAR
hamitcan
17-09-2004, 15:48
ekteki dosya istediğiniz gibi.
İyi Çalışmalar
imdatsaral
20-09-2004, 08:34
HAMİTCAN ARKADAÃIM

BU SATIR SİL MAKROSUNU KULLANIYORUM AMA BİR SORUN VAR
SİLİNEN SATIRIN ÜSTÜNE KAYIT YAPMIYOR BİR ALT SATIRA KAYDEDİYOR

BENİM Ã?NERİM SATIRIN TAMANINI SİLSE MAKROYU BU ÃEKİLDE DÜZENLESEK

İYİ ÇALIÃMALAR

İMDAT SARAL
İZMİR

Özel Arama