bir kodda veri aktarma sayfa temizleme

[CILEKESH]

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.

 

[Mustafa MUTLU]

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

 

[CILEKESH]

Bu Kodu Denermisiniz.

Mustafa bey sanırım eksik soru sordum ben değerlerin aktarılmasını istiyorum.

Formullerin değil.

 

[CILEKESH]

Mustafa bey sanırım eksik soru sordum ben değerlerin aktarılmasını istiyorum.

Formullerin değil.

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)

 

[Mustafa MUTLU]

korhan bey ve orion1 cevaplamış
Onların verdiği linkleri inceleyiniz.

 

[Orion1]

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.

 

[CILEKESH]

korhan bey ve orion1 cevaplamış
Onların verdiği linkleri inceleyiniz.

Teşekkür ederim, Hemen inceleceyeğim.

 

[CILEKESH]

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.

Teşekkür ederim Sayın Orion1 o linke henüz bakmadım hemen bakıyorum

 

[CILEKESH]

korhan bey ve orion1 cevaplamış
Onların verdiği linkleri inceleyiniz.

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.

 

[Mustafa MUTLU]

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.

Rica ederim.
Ne Güzel..
işini görmüşün..