• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

bir kodda veri aktarma sayfa temizleme

C

CILEKESH

Katılım
26 Kasım 2006
Mesajlar
234
Excel Vers. ve Dili
2010-2013 Türkçe
Userform8'e koyduğum bir kod çalıştığında aşağıdaki işlemleri yapsın istiyorum

DURUM!D3: D95 aralığını TAHAKKUKLAR!B13:B105 aralığına aktar (İlk önce bu işlem yapılmalıdır)

Hesap Özeti!G19 u Gelirler!F3 e aktar
Hesap Özeti!G33 ü Gelirler!F4 e aktar

Giderler!A3: F998 aralığının içeriğini boşalt (Dikkat: Hücre kayması olmamalı)

Gelirler!A5:F4999 aralığının içeriğini boşalt (Dikkat: Hücre kayması olmamalı)

CommandButton1'e basıldığı anda forma koyduğum checkboxların tamamının seçili olduğunun kontrolü yapılacak seçili değilse uyaracak
işlemin gerçekleşecek emin misiniz gibi bir onay ekranından sonra işlem gerçekleşecek.

Şimdiden teşekkür ederim. Formu incelemek isteseniz dosyayı ekledim.
 

Ekli dosyalar

Bu Kodu Denermisiniz.

Sheets("DURUM").Select
Range("D3: D95").Select
Selection.Copy
Sheets("TAHAKKUKLAR").Select
Range("B13:B105").Select
ActiveSheet.Paste
Sheets("Hesap Özeti").Select
Range("G9").Select
Selection.Copy
Sheets("Gelirler").Select
Range("F3").Select
ActiveSheet.Paste
Sheets("Hesap Özeti").Select
Range("G33").Select
Selection.Copy
Sheets("Gelirler").Select
Range("F4").Select
ActiveSheet.Paste
Sheets("Giderler").Select
Range("A5:F4999").Select
Selection.ClearContents
Sheets("Gelirler").Select
Range("A5:F4999").Select
Selection..ClearContents
Genişletmek için tıkla ...
 
CILEKESH' Alıntı:
Mustafa bey sanırım eksik soru sordum ben değerlerin aktarılmasını istiyorum.

Formullerin değil.
Genişletmek için tıkla ...

Kod: 
Private Sub CommandButton1_Click()
Sheets("DURUM").Select
Range("D3: D95").Select
Selection.Copy
Sheets("TAHAKKUKLAR").Select
Range("B13:B105").Select
ActiveSheet.Paste
Sheets("Hesap Özeti").Select
Range("G9").Select
Selection.Copy
Sheets("Gelirler").Select
Range("F3").Select
ActiveSheet.Paste
Sheets("Hesap Özeti").Select
Range("G33").Select
Selection.Copy
Sheets("Gelirler").Select
Range("F4").Select
ActiveSheet.Paste
Sheets("Giderler").Select
Range("A3:F998").Select
Selection.ClearContents
Sheets("Gelirler").Select
Range("A5:F4999").Select
Selection.ClearContents
End Sub

Buradan devam edebilir misiniz. (Birkaç küçük değişiklik yaptım)
 
korhan bey ve orion1 cevaplamış
Onların verdiği linkleri inceleyiniz.
 
Son düzenleme:
http://www.excel.web.tr/showthread.php?goto=newpost&t=107057

Yukarıdaki linkte sizin sorunuz vardı bu konu ile ilgili.
Ben ve korhan bey cevapladık.
Üstelik oradanda bize bir geri dönüş yapmadınız.Oldumu,olmadımı.
Bu sorunun çözümü için orada verdiğimiz kodları inceleyin ,işinize yarayacaktır.:cool:
 
CILEKESH' Alıntı:
Mustafa bey Sayfa temizleme ile ilgili sizin kodlarınızı kullandım aktarmalar için Korhan bey ve Orion1 kodlarını Hepinizin fikrine sağlık.
Genişletmek için tıkla ...

Rica ederim.
Ne Güzel..
işini görmüşün..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst