-
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
- Konbuyu başlatan nasyarx
- Başlangıç tarihi
-
- Etiketler
- son son dolu hücre
- Durum
- Katılım
- 25 May 2018
- Mesajlar
- 1,618
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
Bu şekilde deneyin...
PHP:
Range("A112").End(3).Row- Katılım
- 25 May 2018
- Mesajlar
- 1,618
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 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.
Yapılmak isteneni net olarak anlatırsanız daha kısa yoldan çözümler üretilebilir.
- Katılım
- 25 May 2018
- Mesajlar
- 1,618
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
sayi = satırında parantezden sonra +6 yazıp bir deneyiniz.
Bu şekilde..
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ş
- 44
- 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.
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.
- Katılım
- 25 May 2018
- Mesajlar
- 1,618
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 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.
- Katılım
- 25 May 2018
- Mesajlar
- 1,618
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 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- Katılım
- 25 May 2018
- Mesajlar
- 1,618
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
Estağfurullah, hayırlı günler.
- Durum