Merhaba hocam. C1 İsimli bir worksheetim var. Bu sekmeyi içeriği aynı kalacak şekilde, adı 1 artarak sekme oluşturmak istiyorum. C1,C2, C3...... C250 ye kadar aşağıda sekme açmak istiyorum. Tek tek isim girmeden yapmanın yolu var mıdır?
merhaba hocam şöyle bir Excel çalışması yapmak istiyorum . Yardımcı olabilirseniz sevinirim yada bilen bir arkadaş dönüş yaparsa çok mutlu olurum . örnek: A1 +B1 =C1 bu işlemin sonunda çıkan C1 hücresindeki sonucu E1 hücresine yazacam ama diğer olasılık şu benim C1 hücre değerim değişken çıkan yeni sonucu E2 hücresine yazmasını istiyorum . E1 hücresi değişmeden bu şekil devam edecek işlem sonuçları her değişimde bir alt hücreye geçmesini istiyorum . yardımcı olursanız sevinirim . Şimdiden TEŞEKKÜRLER kolay gelsin .
Merhaba, = ile hücreler arasında bir bağlantı kurulabilir. Onun dışında VBA tarafında tabiki worksheet_change olayı ile yani her veri girildiğinde ilgili kontroller yapılarak bir alt satır ya da neresi ise veri yazılabilir. ruclips.net/video/uuzguzgrozU/видео.html
@@farukcubukcu Teşekkürler hocam İzniniz olursa bir şey daha danışmak istiyorum . 1 Excel sayfasında kaç çeşit yada kaç adet makro (vba) yazılır yada kullanılır .
Merhaba, istediğiniz kadar kod yazabilirsiniz. Her makro bir sub bloğudur. İstediğiniz olaya bağlı olarak sublar oluşturabilir ve bunları bir ya da daha çok modül içerisine yazabilirsiniz. Ayrıca formlara. Tabi burada önemli olan ne yapılmak isteniyorsa ona uygun bir kod tasarımını yapmaktır. Ben bir veriyi filtrelemek istiyorsam bir tane sub bloğu yazarım onu butona bağlarım ve basar çalıştırırım. Ben bir stok takip formu oluşturmak istiyorsam o zaman zaten Userform içerisinde bir çok kod yazılacaktır. Onu da yapılacak işlemlere göre kod blokları eklenir.
@@farukcubukcu Merhaba Hocam nasılsınız sizi rahatsız ediyorum kusuruma bakmayın ama galiba beceremedim yada olmuyor . Dim xVal As String 'Update by Extendoffice 2022/9/30 Private Sub Worksheet_Change(ByVal Target As Range) ' Static xCount As Integer Application.EnableEvents = False xCount = WorksheetFunction.CountA(Range("D:D")) If Target.Address = Range("C2").Address Then Range("D1").Offset(xCount, 0).Value = xVal Else If xVal Range("C2").Value Then Range("D1").Offset(xCount, 0).Value = xVal End If End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) xVal = Range("C2").Value End Sub böyle bir vba çalışmam var bunu aynı sayfada birden fazla yazmak istiyorum (hücreleri değiştirerek) ama olmuyor .module yazınca kabul etmiyor . tektek sayfalarda oluyor .o da baya sayfa yapar benim için çok sayfa demek olumsuz sonuç sizce nasıl yapmalıyım ne önerirsiniz .yardımcı olursanız sevinirim
Merhaba, şu anda bir kitabım var. Onun dışında şirketlerde eğitim verdiğimde ek dokümanlar ve dosyalar kullanıyorum. Kitabım genel Excel üzerine. İleri düzey konular da var ancak VBA konusu çok az. Bu videolarda daha detaylı bilgi edinebilirsiniz. İstediğiniz uygulama dosyasını gönderebilirim. faruk@farukcubukcu.com Microsoft Excel ® için hazırladığım “EXCEL 365 ile VERİ ANALİZİ ve İŞ UYGULAMALARI” kitabım yayımlandı. (ISBN 9786257440226, 728 Sayfa, 170 uygulama dosyası ve video çözümleri) Yayınevi sitesi ve İnternet sitelerinde; www.kodlab.com/home/608-excel-365-ile-veri-analizi-ve-is-uygulamalari-9786257440226.html www.kitapsepeti.com/urun/detay/kitap/excel-365-ile-veri-analizi-ve-is-uygulamalari/1542633 www.sozcukitabevi.com/faruk-cubukcu-1 Kitap linki: www.kodlab.com/.../608-excel-365-ile-veri-analizi... Yukarıdaki linkin sayfasında İndir linkinden aşağıdaki link elde ediliyor. Orada dosyalar var: Excel dosyalarını indirebileceğiniz link: drive.google.com/.../1yfGj3MPXoxbF83G9eIk.../view... Videolar yayınevinin youtube sayfasında: ruclips.net/video/4eFhM07eMck/видео.html... Kitabın bölümlerine uygun olarak çalışma dosyalarına ve videolarına ulaşabilirsiniz.
HOCAM MERHABA, VİSuAL BASİC' E gelip KOD: Private Sub worksheet_change(ByVal target As Range) If Not Intersect(target, Range("A1")) Is Nothing Then ActiveSheet.Name = ActiveSheet.Range("A1") End If End Sub dediğimde makro olarak dahil etmiyor. yani makroları tıkladığımda görmüyorum.
Merhaba, modül içine yazılanlar öyle. Bu tür kodlar Worksheet nesnesine yazılıyor. VBA ortamına geçin. Sol tarafta nesneleri göreceksiniz. Sayfanızı seçin. Üzerinde sağ tıklayın View Code'ı seçin. Şimdi üstte liste seçeneklerinden Worsheet seçeceksiniz ve Change olayını seçeceksiniz. Kod oraya yazılacak. Bu tür worsheet kullanım videosuna bakabilirsiniz. ruclips.net/video/uuzguzgrozU/видео.html
40 yaştan sonra vallaha beyin yakıyor hocam .ama öğrenmeme lazım.emeğinize sağlık
Çok faydalı bir anlatım oldu hocam teşekkür ederiz emeğinize sağlık
hocam merhalar excel 2019 da onaykutusu kod yazdım Sub onaykutusuekle ama kod çalışmıyor herşey doğru olmasına ragmen yardımcı olabilirmisiniz
Merhaba hocam. C1 İsimli bir worksheetim var. Bu sekmeyi içeriği aynı kalacak şekilde, adı 1 artarak sekme oluşturmak istiyorum. C1,C2, C3...... C250 ye kadar aşağıda sekme açmak istiyorum. Tek tek isim girmeden yapmanın yolu var mıdır?
Merhaba,
Bir döngü içerisinde bir isim oluşturup sheet eklemek gerekir.
Yeni sayfayı eklemek ve adlandırmak:
Worksheets.Add.Name = "C"&satir
Teşekkürler hocam. Kutool eklentisi ile pratik şekilde çözdüm.@@farukcubukcu
emeklerinize sağlık
merhaba hocam şöyle bir Excel çalışması yapmak istiyorum . Yardımcı olabilirseniz sevinirim yada bilen bir arkadaş dönüş yaparsa çok mutlu olurum . örnek: A1 +B1 =C1 bu işlemin sonunda çıkan C1 hücresindeki sonucu E1 hücresine yazacam ama diğer olasılık şu benim C1 hücre değerim değişken çıkan yeni sonucu E2 hücresine yazmasını istiyorum . E1 hücresi değişmeden bu şekil devam edecek işlem sonuçları her değişimde bir alt hücreye geçmesini istiyorum . yardımcı olursanız sevinirim . Şimdiden TEŞEKKÜRLER kolay gelsin .
Merhaba, = ile hücreler arasında bir bağlantı kurulabilir.
Onun dışında VBA tarafında tabiki worksheet_change olayı ile yani her veri girildiğinde ilgili kontroller yapılarak bir alt satır ya da neresi ise veri yazılabilir.
ruclips.net/video/uuzguzgrozU/видео.html
@@farukcubukcu Teşekkürler hocam
İzniniz olursa bir şey daha danışmak istiyorum . 1 Excel sayfasında kaç çeşit yada kaç adet makro (vba) yazılır yada kullanılır .
Merhaba, istediğiniz kadar kod yazabilirsiniz. Her makro bir sub bloğudur.
İstediğiniz olaya bağlı olarak sublar oluşturabilir ve bunları bir ya da daha çok modül içerisine yazabilirsiniz. Ayrıca formlara.
Tabi burada önemli olan ne yapılmak isteniyorsa ona uygun bir kod tasarımını yapmaktır.
Ben bir veriyi filtrelemek istiyorsam bir tane sub bloğu yazarım onu butona bağlarım ve basar çalıştırırım. Ben bir stok takip formu oluşturmak istiyorsam o zaman zaten Userform içerisinde bir çok kod yazılacaktır. Onu da yapılacak işlemlere göre kod blokları eklenir.
@@farukcubukcu Teşekkürler hocam
@@farukcubukcu Merhaba Hocam nasılsınız sizi rahatsız ediyorum kusuruma bakmayın ama galiba beceremedim yada olmuyor .
Dim xVal As String
'Update by Extendoffice 2022/9/30
Private Sub Worksheet_Change(ByVal Target As Range)
' Static xCount As Integer
Application.EnableEvents = False
xCount = WorksheetFunction.CountA(Range("D:D"))
If Target.Address = Range("C2").Address Then
Range("D1").Offset(xCount, 0).Value = xVal
Else
If xVal Range("C2").Value Then
Range("D1").Offset(xCount, 0).Value = xVal
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
böyle bir vba çalışmam var bunu aynı sayfada birden fazla yazmak istiyorum (hücreleri değiştirerek) ama olmuyor .module yazınca kabul etmiyor . tektek sayfalarda oluyor .o da baya sayfa yapar benim için çok sayfa demek olumsuz sonuç sizce nasıl yapmalıyım ne önerirsiniz .yardımcı olursanız sevinirim
Eğitim seti komple ne kadar ve nereden ulaşabilirim hocam ?
Merhaba, şu anda bir kitabım var. Onun dışında şirketlerde eğitim verdiğimde ek dokümanlar ve dosyalar kullanıyorum. Kitabım genel Excel üzerine. İleri düzey konular da var ancak VBA konusu çok az. Bu videolarda daha detaylı bilgi edinebilirsiniz. İstediğiniz uygulama dosyasını gönderebilirim. faruk@farukcubukcu.com
Microsoft Excel ® için hazırladığım “EXCEL 365 ile VERİ ANALİZİ ve İŞ UYGULAMALARI” kitabım yayımlandı. (ISBN 9786257440226, 728 Sayfa, 170 uygulama dosyası ve video çözümleri)
Yayınevi sitesi ve İnternet sitelerinde;
www.kodlab.com/home/608-excel-365-ile-veri-analizi-ve-is-uygulamalari-9786257440226.html
www.kitapsepeti.com/urun/detay/kitap/excel-365-ile-veri-analizi-ve-is-uygulamalari/1542633
www.sozcukitabevi.com/faruk-cubukcu-1
Kitap linki:
www.kodlab.com/.../608-excel-365-ile-veri-analizi...
Yukarıdaki linkin sayfasında İndir linkinden aşağıdaki link elde ediliyor. Orada dosyalar var:
Excel dosyalarını indirebileceğiniz link:
drive.google.com/.../1yfGj3MPXoxbF83G9eIk.../view...
Videolar yayınevinin youtube sayfasında:
ruclips.net/video/4eFhM07eMck/видео.html...
Kitabın bölümlerine uygun olarak çalışma dosyalarına ve videolarına ulaşabilirsiniz.
HOCAM MERHABA,
VİSuAL BASİC' E gelip
KOD:
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("A1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End Sub
dediğimde makro olarak dahil etmiyor. yani makroları tıkladığımda görmüyorum.
Merhaba, modül içine yazılanlar öyle. Bu tür kodlar Worksheet nesnesine yazılıyor.
VBA ortamına geçin.
Sol tarafta nesneleri göreceksiniz.
Sayfanızı seçin.
Üzerinde sağ tıklayın View Code'ı seçin.
Şimdi üstte liste seçeneklerinden Worsheet seçeceksiniz ve Change olayını seçeceksiniz. Kod oraya yazılacak.
Bu tür worsheet kullanım videosuna bakabilirsiniz.
ruclips.net/video/uuzguzgrozU/видео.html
@@farukcubukcu teşekkürler hocam