Üstadlar merhaba,
Sorunum şu; 2 ayrı sheet kullanıyorum, kitap2 den kitap1'e geçişte A1 hücresine gelmem gerekirken çok altlardaki bir hücreye geçiyorum ve her defasında en üste çekmek zorunda kalıyorum. Çözümü var mıdır.
Saygılarımla
Kodlamadan kaynaklanan birşey olabilir. Çalışmanızı eklerseniz inceleyebliliriz
(09/05/2019, 22:32)haliliyas yazdı: [ -> ]Kodlamadan kaynaklanan birşey olabilir. Çalışmanızı eklerseniz inceleyeblil
Dosyayı eklemeyi unutmuşum.
Teşekkürler.
Şimdi ekledim.
en son satıra gelmesinin sebebi sayfa aktif olduğunda çalışan kodmuş
Private Sub Worksheet_Activate()
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
'Cells(sonsatır, 1).Select '<== satır son satırdaki ilk hücreye gitmesine sebep oluyor
Cells(1, 1).Select '<== eğer komutu bu satırla değiştirirseniz cell( satır , sütun) gider
End Sub
ne zahmeti tam aksine ben de öğreniyorum bu arada )
iyi çalışmalar
Hocam;
İlgili satırı değiştirdim, düzeldi.
Çok zahmet ettiniz çalışma için. Hakkınız helal edin.
Teşekkür Ederim
Saygılarımla
Hocam bir sorum da şudur; ben yazılan iş emrini ilgili bölümlere mail atmak için en üst satırlara departmanları koyarak oluşturdum.
Bu vesileyle iş emri hangi birimi ilgilendiriyorsa o butona tıklayıp
Excel dosyasının tamamını atıyorum.
Excel dosyasının tamamını atmak yerine:
Aslında yapmak istediğim;
Her satıra bir buton koymak istiyorum (buton koymak için A sütununa bir sütun ekleyerek) ( belki yüzlerce sütun olacak) , yazdığım iş emri hangi birimi ilgilendiriyorsa (L sütunu) o bölümü açılır pencereden seçeceğim (örnek: mekanik bakım bölümü çıkacak) ve butona tıkladığımda sadece ilgili satırın örnek; B4 İLE L4 arasındaki hücreleri metin olarak mekanik bakım bölümündeki ilgili kişilere mail atsın, ya da elektrik bakım bölümündeki ilgili kişilere mail atsın.
Teşekkür ederim.