Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
M
Çözüldü Makro ile Sayfalar Arası Kopyalama Yapma
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
Hocam ilgiliniz icin tesekkürler fakat yapmak istedigimi tam izah edemedim sanirim.Aşağıdaki kodu deneyin
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (12 satır)
ekte size bir dosya daha paylastim icerisine aciklama yaptim insallah anlasilir olmustur.
Ekli dosyalar
Bu dosyayi incelemenizi rica ederim, burada birazdaha detaylandirdim durumu.Aşağıdaki kodu deneyin
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (12 satır)
Ekli dosyalar
İkinci sayfayı arşiv olarak mı kullanacaksınız? Her butondan sonra arşive yedekleme yapılıp birinci sayfadaki tablo silinecek mi?
Evet arşiv yapmak istiyorumİkinci sayfayı arşiv olarak mı kullanacaksınız? Her butondan sonra arşive yedekleme yapılıp birinci sayfadaki tablo silinecek mi?
Doğrudur 1.sayfa da silme işlemini buton 1 de tanımlamıştım
Silme işlemini ayrı buton ile mi yapacaksınız?
Başka fonksiyonlar da var siz sadece arşiv işleminde yardımcı olmanız yeterliSilme işlemini ayrı buton ile mi yapacaksınız?
Orjinal dosyada Detay sayfasında a sütununa tıklayıp bir adet sütun ekleyin. Yüklediğim dosyada ben ekledim.
Kodun en altındaki satırda tek tırnağı kaldırırsanız silme işlemini de yapar.
Kodun en altındaki satırda tek tırnağı kaldırırsanız silme işlemini de yapar.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(17 satır)Ekli dosyalar
Çözüm
Üstad eline saglik gayet güzel calisiyor fakat L32 de yazdigim (Eger mümkünse Fatura tarihi ve numrasini da Detay sayfasina ilgili islemin karsina getirmesi) bu islemi detay sayfasina aktarmiyor. Acaba bunu da aktarmamiz mümkün mü ?Orjinal dosyada Detay sayfasında a sütununa tıklayıp bir adet sütun ekleyin. Yüklediğim dosyada ben ekledim.
Kodun en altındaki satırda tek tırnağı kaldırırsanız silme işlemini de yapar.
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (17 satır)
Satır numarası verdiği gibi her satıra tarih ve fatura numarası mı yazsın?
Önceki mesajımdaki işlemi yapmak istiyorsanız; For next döngüsünün arasına aşağıdaki kod satırlarını yapıştırıp deneyin.
dty.Range("K" & i) = ft.Range("J5")
dty.Range("L" & i) = ft.Range("J6")
dty.Range("K" & i) = ft.Range("J5")
dty.Range("L" & i) = ft.Range("J6")
Hocam elinize saglik mükemmel olduÖnceki mesajımdaki işlemi yapmak istiyorsanız; For next döngüsünün arasına aşağıdaki kod satırlarını yapıştırıp deneyin.
dty.Range("K" & i) = ft.Range("J5")
dty.Range("L" & i) = ft.Range("J6")
Nacizane tavsiye, Önceden cay/kahve ismarla butonu vardi keske bu devam etse, size bir kahve ismarlamak isterdim. Emeginiz cok büyük benim icin.
Hocam bir husus dikkatimi cekti Fatura sayfasinda 50.satir ve sonrasi hep sabit kalacak, silinme ve yukariya dogru tasima olmayacak. Size zahmet buna da bir bakabilirmisinizBu dosyayi incelemenizi rica ederim, burada birazdaha detaylandirdim durumu.
Sağolun, Düşünmeniz yeterli.Hocam elinize saglik mükemmel oldu
Nacizane tavsiye, Önceden cay/kahve ismarla butonu vardi keske bu devam etse, size bir kahve ismarlamak isterdim. Emeginiz cok büyük benim icin.
Silme işleminde Ömer abinin verdiği yöntem işinize yaramış olması lazım, başka şekilde silme işlemi istiyorsanız yazarsınız.
Tesekkürler@mtecimer
Mevcut kodun en sonundaki END SUB satırının üstündeki
aralik.Delete shift:=xlUp kısmını aralik.ClearContents olarak değiştirince istediğinizin olması lazım.
Belgeye değil, önceki cevaplarda kullanılan kodlara baktım.
Sağolun, Düşünmeniz yeterli.
Silme işleminde Ömer abinin verdiği yöntem işinize yaramış olması lazım, başka şekilde silme işlemi istiyorsanız yazarsınız.
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(31 satır)Hocam bu kodu basa ekledigimde hata aliyoru bakabilirmisiniz ?
Hata hangi satırda? Birde dosya yükleyin.
Hocam hata benden kaynakli onu cözdüm, ama sizden bir ricam daha olacak butona bastigimda fatura numrasini otomatik 1 sayi artirabilirmiyiz?Hata hangi satırda? Birde dosya yükleyin.
Format bu sekilde 2022-01 sonraki fatura no 2022-02 diye devam edecek.
End sub dan önce aşağıdaki kodları ekleyin.
J6 Hücresinde, metin ve ayirici isimli değişkenlerdeki veriler bulunması lazım. Hücrede bulunmayan bir değer üzerinde değişiklik yapamaz.
Ayirici değişkenindeki nokta yerine tire (-) karakterini veya başka bir karakteri yazabilirsiniz. Eğer böyle bir değişiklik yaparsanız, kodu çalıştırmadan önce J6 hücresindeki veriyi "Test 2022-22" olarak değiştirin.
J6 Hücresinde, metin ve ayirici isimli değişkenlerdeki veriler bulunması lazım. Hücrede bulunmayan bir değer üzerinde değişiklik yapamaz.
Ayirici değişkenindeki nokta yerine tire (-) karakterini veya başka bir karakteri yazabilirsiniz. Eğer böyle bir değişiklik yaparsanız, kodu çalıştırmadan önce J6 hücresindeki veriyi "Test 2022-22" olarak değiştirin.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
