• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü İki satır arası son dolu hücre

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Selamlar,
Bu kodubelli hücreler arasında aramayı nasıl yapabiliriz. (a7: a112 arası ) gibi.
Kod:
 [a65536].End(3).Row
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu şekilde deneyin...
PHP:
Range("A112").End(3).Row
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Örnek dosyada denedim olmadı.
 

Ekli dosyalar

  • SözHakkıSade2.xls
    62.5 KB · Görüntüleme: 13

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Amacınızı söylemezseniz elbette ki böyle yanlış çözümler önerilebilir. Konu: İki Satır Arası Son Dolu Hücre olunca verdiğim çözüm doğru sonuç verir ama sizin yapmak istediğiniz iş başka olunca hâliyle bir işinize yaramaz.

Yapılmak isteneni net olarak anlatırsanız daha kısa yoldan çözümler üretilebilir.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
sayi = satırında parantezden sonra +6 yazıp bir deneyiniz.

Bu şekilde..
sayi = Int(Cells(sat, "a") * Rnd + 1) + 6
 
Son düzenleme:

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Sağolun,
Dosya eklemeden sormam hata olabilir. Fakat çözümlerinizi eleştirmek gibi bir gayem olmadı.

Verdiğiniz kod çalıştı. Eğer a112 den sonra başka veriler varsa aramayı sadece a7 ve a112 arası yapsın.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
  • sat değişkenini en başta 112 yapın.
  • For döngüsünü de 7 ile 112 arasında döndürün.
  • Rastgele oluşan sayi değişkenini de önceki mesajımda olduğu gibi düzenleyin.
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Sayın @Admin,
Dediğiniz işlemleri yaptım fakat ikinci tıklamada hata veriyor.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Kodları göndereyim tekrar bir bakın olur mu?
PHP:
Sub SayıUret()
    x = 0
    sat = 112
    Sira = [g65536].End(3).Row + 1
    For i = 7 To 112
        If Cells(i, "c") = "*" Then Son = Son + 1
    Next i
    If Son = Cells(sat, "a") Then
        'Sor = MsgBox("Tüm öğrenciler çekilmiştir, kura çekimini sıfırlamak istiyor musunuz?", vbQuestion + vbYesNo, "UYARI")
        'If Sor = vbNo Then Exit Sub
        'If Sor = vbYes Then
        'Range(Cells(1, 1), Cells(sat, 2)).Interior.ColorIndex = 35
        Range("c1:c120").ClearContents
        
        [a1,a5] = ""
        Range(Cells(1, "g"), Cells(Sira - 1, "h")) = ""
        'Exit Sub
    End If
    'End If
basla:
    Randomize
    sayi = Int(Cells(sat, "a") * Rnd + 1) + 6
    Range("a1") = Cells(sayi, "b")
    'If Cells(sayi, "b").Interior.ColorIndex = 6 Then GoTo basla
    'Cells(sayi, "b").Interior.ColorIndex = 6
    If Cells(sayi, "c") = "*" Then GoTo basla
    Cells(sayi, "c") = "*"
    [a5] = [a5] + 1
    If [g1] = "" Then Sira = 1
    Cells(Sira, "g") = [a5] & "-"
    Cells(Sira, "g").Offset(0, 1) = [a1]
    Cells(Sira, "g").Offset(0, 2) = sayi
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Size zahmet verdik. Allah razı olsun.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt