• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Sayfa için yazılan formülü tüm sayfalarda uygulamak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
T

talebeyim

Yeni Üye
Katılım
8 Ara 2022
Mesajlar
118
Aldığı beğeni
15
Excel V
Office 2019 TR
Konu Sahibi
ToggleButton1 butona atanmış bir formülüm var.

Formülüm sadece belirtilen sayfa adında çalışıyor.

Ben bu sayfayı kopyaladığım zaman Bu sefer form sadece sayfa3de çalışıyor.

Aşağıdaki kodu bir yan sayfaya kopyaladığım zaman çalışmıyor.

Birde Kalın border rengini kırmızı yapmak istesem kodun neresini değiştirmem gerekir

Teşekkürler.

Örnek:
Sayfa3e yazılan kod:
HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Modül1 e yazılan Kod.
HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Adnan
bu kısım 150.satıra kadar çalışır istersen 150. satırı silip 150 yapabilirsin "d150" d103 şekli ile yazabilirsin
Set range1 = ws.Range("d1:d150")
kontrol = True
k = 4
Case 5
istediğin kadar Case açabilirsin Case 1 den case n e kadar

k sayısını case sayısı ile aynı yapmalısın
kontrol= true hepsinde olacak

hangi sayfaya toogle buton koymuşsan üzerini çift tıkla koda gir aşağıdaki kodu buton clik ine yaz ancak Sayfanın NUMARASINI MUTLAKA değiştirmen gerek

Dim ws As Worksheet
Set ws = Sayfa3
If ToggleButton1 Then
ToggleButton1.Caption = "İnce"
cizgi 2, ws
Else
ToggleButton1.Caption = "Kalın"
cizgi 3, ws
End If
Tarihe göre sırala Oylara göre sırala
ws.Range("b" & i & ":L" & i).Borders(xlEdgeBottom).ColorIndex = 3 satırını ekleyin
 
Olumlu oy 0 Negatif oyla
eklediğin satırı sil yerine alttaki kodu ekle
if kalinlik=3 then
ws.Range("b" & i & ":L" & i).Borders(xlEdgeBottom).ColorIndex = 3
end if
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
eklediğin satırı sil yerine alttaki kodu ekle
if kalinlik=3 then
ws.Range("b" & i & ":L" & i).Borders(xlEdgeBottom).ColorIndex = 3
end if
Genişletmek için tıkla...
Hocam emeğinize sağlık çok güzel oldu.

Son sorum ben bu kodu her sayfada nasıl çalıştırabilirim?
Command butonu hangi sayfada çalıştırırsam o sayfada çalışma prensipini nasıl sağlarım
 
Olumlu oy 0 Negatif oyla
örneğini 2 sayfa ile yapmıştım. aynı şekilde olacak
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
örneğini 2 sayfa ile yapmıştım. aynı şekilde olacak
Genişletmek için tıkla...
yani sayfa2den sayfa3 kopyaladığımda sayfa2 deki kodları sayfa3emi yapıştıracağım O kısmını anlamadım tam olarak ?


Birde hocam sizin bana verdiğiniz aşağıdaki kodlar. B1 ile L sütunu arasında geçerliydi ya.

C3 ile c103 arasına bakıp mükerrerleri bulup.
a3 ile AD103 arasında çalışsın şeklinde yapmak istesem aşağıdaki kodları neresini değiştirmem gerekir.

Yani aynı kodlar hocam sadece adresi değişecek

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
bu kısım 150.satıra kadar çalışır istersen 150. satırı silip 150 yapabilirsin "d150" d103 şekli ile yazabilirsin
Set range1 = ws.Range("d1:d150")
kontrol = True
k = 4
Case 5
istediğin kadar Case açabilirsin Case 1 den case n e kadar

k sayısını case sayısı ile aynı yapmalısın
kontrol= true hepsinde olacak

hangi sayfaya toogle buton koymuşsan üzerini çift tıkla koda gir aşağıdaki kodu buton clik ine yaz ancak Sayfanın NUMARASINI MUTLAKA değiştirmen gerek

Dim ws As Worksheet
Set ws = Sayfa3
If ToggleButton1 Then
ToggleButton1.Caption = "İnce"
cizgi 2, ws
Else
ToggleButton1.Caption = "Kalın"
cizgi 3, ws
End If
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Hocam bu dosyaya bir bakarmısınız dediklerinizi anlamadım gerçekten :(

C3ile C103 arasına bakacak ve c1 ile ad103 arasını çizecek.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst