• 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ü Hücredeki Değerin Bir Kısmını Alma

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.
H

hayalibey

Yeni Üye
Katılım
28 Ağu 2021
Mesajlar
159
Aldığı beğeni
42
Excel V
Office 2016 TR
Konu Sahibi
Alttaki kodu revize etmede yardımcı olursanız cok sevinirim.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Bu kodu aynı şekilde G hücresine 08.00 -
başlangıç saati kalacak sekilde

G hücresine 08.00-I hücresindeki parentezden sonraki 5 karekteri alsa

misal 08.00-15.30 şeklinde G hücresine yazsa.
başlangıç saati sabit 08.00- şeklinde olacak
 

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.
Çözüm
arschimet
hayalibey' Alıntı:
Hocam akıntıdaki koda
If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım bunu uyarlarsanız sorun kalmıyor.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then ise G de ne yazılı ise onu yaz demem lazım
Genişletmek için tıkla...
Şimdi anlaştık sanıyorum :D
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
İsteğinizi yanlış anlamadıysam güncel kodlar ve örnek ektedir.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

İyi günler
 

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
Konu Sahibi
Hocam kodu deneyemedim . G sütununda ilgili hücreye 08.00- ile I ilgili hucredeki parantezden sonraki ilk nda karekteri birleştirip yazacak.
Kontorl edip size dönüş yaparım hocam
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam kod tüm G:G aralığını siliyor, silmemesi lazım tüm G:G aralığını. Sadece Karşısında (15.30-17.00 arası Süt İzni) parantez içerisinde misal ilk iki hanesi rakamla başlıyor ise sadece o satırın G hücresi silinecek diğer G hücrelerine dokunulmayacak

Kod I sütununda yazı olan tüm G:G aralığını silip I hücresinde yazı varsa soldan ilk 11 hanesini yazıyor Hatalı bu işlem.

Bir de G hücresinde Hafta Tatili yazıyorsa kod hiç bir işlem yapmayacak.
 
Olumlu oy 0 Negatif oyla
hayalibey' Alıntı:
Hocam kod tüm G:G aralığını siliyor, silmemesi lazım tüm G:G aralığını. Sadece Karşısında (15.30-17.00 arası Süt İzni) parantez içerisinde misal ilk iki hanesi rakamla başlıyor ise sadece o satırın G hücresi silinecek diğer G hücrelerine dokunulmayacak

Kod I sütununda yazı olan tüm G:G aralığını silip I hücresinde yazı varsa soldan ilk 11 hanesini yazıyor Hatalı bu işlem.

Bir de G hücresinde Hafta Tatili yazıyorsa kod hiç bir işlem yapmayacak.
Genişletmek için tıkla...
Kodları tekrar kontrol ettim, gönderdiğim dosyada kodlar aynen sizin istediğiniz doğrultuda çalışıyor, G hücresinde silme olmuyor, dosyayı indirip tekrar dener misiniz?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım hocam
 
Olumlu oy 0 Negatif oyla
hayalibey' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım hocam
Genişletmek için tıkla...
Anladığım:
G hücresinde Hafta İzni ya da Resmi Tatil yazıyorsa I hücresinde ne yazarsa yazsın G hücresi aynı kalsın,
I hücresinde saatler varsa G hücresinde de tatil ya da izin yazmıyorsa şarta göre G hücre içeriği değişsin

iki sütundan iki farklı şart istemişsiniz bu sefer
Şayet doğruysa kodlar şu şekilde olmalı

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Konuyla ilgili yeni dosya ektedir.
Dönüş yapmayı unutmayın lütfen
İyi akşamlar.
 

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
Konu Sahibi
hayalibey' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım hocam
Genişletmek için tıkla...
Hocam akıntıdaki koda
If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım bunu uyarlarsanız sorun kalmıyor.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then ise G de ne yazılı ise onu yaz demem lazım
 
Olumlu oy 0 Negatif oyla
hayalibey' Alıntı:
Hocam akıntıdaki koda
If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım bunu uyarlarsanız sorun kalmıyor.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then ise G de ne yazılı ise onu yaz demem lazım
Genişletmek için tıkla...
Şimdi anlaştık sanıyorum :D
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Bu sizin dediğiniz gibi G de ne yazıyorsa o kalsın oluyor
 

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 1 Negatif oyla
Çözüm
hayalibey' Alıntı:
Hocam akıntıdaki koda
If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then
Sayfa.Cells(Satir, "G") = Sayfa.Cells(Satir, "G")
Bu kısmı uyarlayamadım bunu uyarlarsanız sorun kalmıyor.

If Sayfa.Cells(Satir, "G") = "Hafta İzinli" or "Resmî Tatil" Then ise G de ne yazılı ise onu yaz demem lazım
Genişletmek için tıkla...
Sorunuzda bir tutarsızlık var. Ben o kısma girmeden küçük bir hatırlatma yapayım. Else kullanın. Sayın arshimet'in cevabını görmemişim. Özür dilerim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst