Kod ile değerleri yapıştır

[CILEKESH]

Sheets("DURUM").Select
Range("D3: D95").Select
Selection.Copy
Sheets("TAHAKKUKLAR").Select
Range("B13:B105").Select
ActiveSheet.Paste

Bu kod hücrelerdeki formulü aktarıyor bense değerleri aktarsın istiyorum. Kod nasıl olmalı?

 

[Orion1]

Sheets("DURUM").Select
Range("D3: D95").Select
Selection.Copy
Sheets("TAHAKKUKLAR").Select
Range("B13:B105").Select
ActiveSheet.Paste

Bu kod hücrelerdeki formulü aktarıyor bense değerleri aktarsın istiyorum. Kod nasıl olmalı?

aşağıdaki kod işinizi görecektir.

Sheets("DURUM").Range("D3: D95").Copy
Sheets("TAHAKKUKLAR").Range("B13").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False

 

[Korhan Ayhan]

Merhaba,

Eğer amacınız ilgili aralıktaki sadece değerleri aktarmaksa alternatif olarak kopylama yöntemi dışında aşağıdaki yöntemide kullanabilirsiniz.

Sheets("TAHAKKUKLAR").Range("B13:B105").Value = Sheets("DURUM").Range("D3:D95").Value

 

[CILEKESH]

Korhan bey'inde Orion1'inde kodları işe yarıyor ilgi ve alaka için çok teşekkür ederim.

 

[CILEKESH]

uyarı mesajı çıkıyor ama yinede işlemi yapıyor

Private Sub CommandButton1_Click()

Dim nesne As Control
For Each nesne In Controls
    If TypeName(nesne) = "CheckBox" And nesne = Empty Then
        MsgBox nesne.Name & " Boş Bırakılmış..", vbExclamation, "*© 2011*Irmak Yazılım"
        Exit Sub


Sheets("TAHAKKUKLAR").Range("B13:B105").Value = Sheets("DURUM").Range("D3:D95").Value  'Bakiye Aktar


Sheets("Gelirler").Range("F3").Value = Sheets("Hesap Özeti").Range("G19").Value   'Ortak Gider Kasa Bakiyesini Aktar


Sheets("Gelirler").Range("F4").Value = Sheets("Hesap Özeti").Range("G33").Value  'Yatırım Kasası Bakiyesini Aktar


Sheets("Giderler").Select  'Giderleri temizle
Range("A3:F998").Select
Selection.ClearContents

Sheets("Gelirler").Select  'Gelirleri temizle
Range("A5:F4999").Select
Selection.ClearContents
Sheets("ŞİFRE").Range("G1") = 0
End Sub

Arkadaşlar şu koduda bir düzeltebilirmisiniz?

Checkboxların durumunu kontrol eden kod çalışıyor uyarı mesajını veriyor ama altındaki kodlar yinede çalışıyor. Ben çalışmasın istiyorum.

 

[Korhan Ayhan]

Merhaba,

For ile döngü başlatmışsınız ama Next ile bitirmemişsiniz.

If ile sorgu başlatmışsınız ama End If ile bitirmemişsiniz.

Bu kurallara uymanız gerekir.

Exit Sub satırından sonra;

[/B]
[B]End If[/B]
[B]Next[/B]

İfadelerini yazın.

 

[CILEKESH]

Teşekkür Ederim sonuç her zamanki gibi olumlu.