Makroya giriş temel sorular

[telefoncuk]

Merhaba,

Makro konusunda yeniyim, o yüzden sorularımı şimdiden maruz görün

Ekteki dosyada sırasıyla
1. Tüm sheetleri seçmek istiyorum
2. Daha sonrasında formülden kurtarmak adına tüm hücreleri seçip value olarak yapıştırmak istiyorum.( formülden kurtarmanın başka bir yolu varsa o da olabilir)
3. İlk 4 sheeti silmek istiyorum. (Sadece "2016 sonuç" sheeti kalsın istiyorum)

Bu adımları sırayla nasıl yapabiliriz, anneye anlatır gibi açıklayabilir misiniz?

Record macro ile oluyor ama doğru/yalın kod yazım şekli nedir onu merak ediyorum öğrenmek adına.

Çok teşekkürler şimdiden

 

[YUSUF44]

Aşağıdaki kodlar belirttiğiniz işlemleri yapıyor anladığım kadarıyla:

Sub işlem()
For i = 1 To Sheets.Count
    Sheets(i).Select
    Sheets(i).UsedRange.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
For j = 1 To Sheets.Count
    If Sheets(j).Name <> "2016 sonuç" Then Sheets(j).Delete
Next

End Sub

 

[telefoncuk]

Teşekkürler,
Bu Workbookta çalışıyor, ama başka bir workboota aynı mantıkta sheets.count paste value yaptığımda runtime error 1004 hatası alıyorum, neden olabilir?

 

[YUSUF44]

Kod aşağıdaki gibi saha doğru oldu:

Sub işlem()

sayfa = Sheets.Count 'Sayfa sayısını bulma

For i = 1 To sayfa 'Tüm sayfalarda kopyalama ve değerleri yapıştırma döngüsü
    Sheets(i).Select
    Sheets(i).UsedRange.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next

For j = 1 To sayfa '2016 sonuç sayfasını en sona taşıma
    If Sheets(j).Name = "2016 sonuç" Then Sheets(j).Move after:=Sheets(sayfa)
    j = sayfa
Next

For k = sayfa - 1 To 1 Step -1 'Sondan geriye doğru diğer sayfaları silme döngüsü
    If Sheets(k).Name <> "2016 sonuç" Then Sheets(k).Delete
Next

End Sub

 

[treginyfe]

CheckBox ile Hücre içindeki yazının rengini değiştirme

Arkadaşlar,

bir checkbox kutusu attım activeX'ten bu checkbox ın içine kod yazmaya çalıştım ama beceremedim.

Checkbox işaretli ise A10 hücresinin siyah olsun. İşaretli değil ise Gri olsun istedim.

Yardımcı olursanız sevinirim.

(buarada konuyu acacakta yer bulamadım )

 

[telefoncuk]

Teşekkürler yalnız delete işleminde hata veriyor.
"Delete method of worksheet class failed" diyor. error 1004 yine.

 

[YUSUF44]

Teşekkürler yalnız delete işleminde hata veriyor.
"Delete method of worksheet class failed" diyor. error 1004 yine.

Benim denememde herhangi bir hata vermedi. Hatalı halini yükleyin inceleyelim.

 

[YUSUF44]

Arkadaşlar,

bir checkbox kutusu attım activeX'ten bu checkbox ın içine kod yazmaya çalıştım ama beceremedim.

Checkbox işaretli ise A10 hücresinin siyah olsun. İşaretli değil ise Gri olsun istedim.

Yardımcı olursanız sevinirim.

(buarada konuyu acacakta yer bulamadım )

Aşağıdaki kodu onay kutusunun kod bölümüne yapıştırıp deneyin:

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        Range("A10").Interior.ColorIndex = 1
    Else
        Range("A10").Interior.ColorIndex = 16
    End If
End Sub

 

[telefoncuk]

makrolu halde dosyayı ekledim.
Teşekkürler,

 

[YUSUF44]

makrolu halde dosyayı ekledim.
Teşekkürler,

Nereye eklediniz?

 

[telefoncuk]

boyut fazla olduğu için eklememiş, datayı ve makroyu kaldırdım, dosya ekte.

 

[YUSUF44]

Bu kodu başka dosyalara aynen kopyalıyorum ve düzgün olarak çalışıyor. Ancak sizin dosyanızda nedense daha ilk satırda Worksheet sınıfının select özelliği çalışmıyor uyarısı veriyor. Bilemedim.