Alt satıra geçişte rastgele değişim..

[Mel G.]

Merhaba..

Arama yapmamışsın demeyin, üç gündür sitede gezmediğim yer kalmadı

Bazılarınıza tuhaf gelebilecek birşey istiyorum aslında..
Bir hücrede (veya birleştirilmiş olan üç hücrede) yeralan üç kelimelik bir yazı,
tek bir komut veya sadece Enter tuşuyla alt satıra aktarılacak.
Ama aktarıldığında bu üç kelimenin yerleri rastgele değişmiş olacak.

Diyelim ki A1 hücresinde Ali Topu Tut yazıyor. Tek bir komut vereceğiz ve bu cümle aşağıya
Tut Topu Ali olarak aktarılacak. Yine tek bir komut verilecek
ve alt satır Topu Tut Ali olacak ve bu böyle sürüp gidecek..

Bi' el atıverin hadi..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub siradegistir()
20 deg = Split([a1], " ")
metin = ""
say = WorksheetFunction.CountA([a:a])
If say = WorksheetFunction.Fact(UBound(deg) + 1) Then
MsgBox "Tüm ihtimaller çıkmıştır."
Exit Sub
End If
For a = 1 To UBound(deg) + 1
10 sayi = Int(Rnd * (UBound(deg) + 1))
If InStr(metin, deg(sayi)) > 0 Then GoTo 10
metin = metin & " " & deg(sayi)
Next
If WorksheetFunction.CountIf([a:a], LTrim(metin)) > 0 Then GoTo 20
Range("a65536").End(3).Offset(1, 0) = LTrim(metin)
End Sub

 

[Merhum İdris SERDAR]

Bir örnekte benden.

 

[Mel G.]

3 yaşındaki çocuğa anlatır gibi anlatsaydınız daha iyi olacaktı

leventm'in gönderdiği kodlarda VB'de Run demedikçe herhalde işlem yapmıyor. O kadarını çözdüm

yurttas arkadaşımızınkinde de galiba öncelikle bir eklenti yüklemem lâzım. Çünkü RANDBETWEEN fonksiyonu bende mevcut değil.

 

[Merhum İdris SERDAR]

3 yaşındaki çocuğa anlatır gibi anlatsaydınız daha iyi olacaktı

leventm'in gönderdiği kodlarda VB'de Run demedikçe herhalde işlem yapmıyor. O kadarını çözdüm

yurttas arkadaşımızınkinde de galiba öncelikle bir eklenti yüklemem lâzım. Çünkü RANDBETWEEN fonksiyonu bende mevcut değil.

Evet...

Benimki için "Analysis ToolPak add-in" i yüklemeniz gerekir.

 

[Mel G.]

Türkçesi ToolPak Çözümleyicisi ise, onu etkinleştirdiğimde de #AD? şeklinde gözüküyor maalesef..

 

[Merhum İdris SERDAR]

Türkçesi ToolPak Çözümleyicisi ise, onu etkinleştirdiğimde de #AD? şeklinde gözüküyor maalesef..

RANDBETWEEN = RASTGELEARALIK olması gerekir.

Yani formülde RANDBETWEEN yerine RASTGELEARALIK koyarak deneyin.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[Mel G.]

Süper iş çıkarmışsınız gerçekten.. :bravo:
Çok teşekkür ederim k::

 

[Mel G.]

Ufak bir maruzatım daha olacaktı

Bu dosyada Çalıştır dediğimizde A1 hücresinde yazan ne varsa A sütunundaki boş olan ilk hücreye veri giriyor.
Diyelim ki A1'e farklı birşey yazdık. 'Koş Ali Koş' falan gibi..
Doğrudan A2 hücresine girmesi mümkün mü?

Yani A sütununda hücreler dolu bile olsa yeni girilen cümlede değişiklik yapılsın istiyorum.

Çok şey mi istiyorum?

 

[Levent Menteşoğlu]

Tam olarak ne istediğinizi anlayamadım ama A1 hücresine kaç kelimeden oluşursa oluşsun kod bunu kendiliğinden algılayacaktır. Yani A1 hücresine istediğiniz metni yazabilirsiniz.

 

[Mel G.]

Hazırladığınız dosyada herşey doğru zaten.

Şöyle anlatmaya çalışayım.

A1: Ali Topu Tut
A2: Topu Tut Ali
A3: Tut Topu Ali

Şimdi burada hiçbir değişiklik yapmadan (A2'yi seçip silmeden vs.) A1'e 'Koş Ali Koş' yazdığımızı varsayalım.

Yeni cümlemiz -atıyorum- 'Ali Koş Koş' oldu diyelim. Bu yeni cümleyi A4'e giriyor.
A4 değil de doğrudan A2'den başlayarak devam etsin.
A2 dolu olsa bile üzerine yeni cümlemizi yazsın yani..

Daha güzel anlattım bu sefer galiba

 

[Levent Menteşoğlu]

Silerek yazılsa olmazmı. A1 hücresi değiştiğinde A2 den aşağıda doğru olan verileri otomatikman sildirebiliriz.

 

[denis78]

selamlar oncelıkle benımde buna benzer bır sorunum var basıt bır puantaj hazırlamaya calısıyorum formullerle acemıyım ve kodlardan anlamadıgım ıcın henuz boyle yapmak kolay olur dıye dusundum asagıda ekledıgım dosya calısma dosyam kısıler calısma saatlerı ücretleri vs.. bulunmakta sonucları genel sayfasına aktarmak ıstıyorum yanı bunun aylara gore bır yıllık cızelge durumunda verılerı bır sayfadan dıger sayfaya kopyalayabılıyorum yanı formullerı tasıyorum lakın ıstedıgım gıbı degıstıremıyorum doldur tutamacı ıle asagıya kadar kopy yaptıgımda ıcerık ıstedıgım gıbı degısıyor ama aynı seyı basına= koydugumda gene doldur tutamacı ıle asagıya almasını ıstıyorum bu sefer farklı hucrelerı alıyor kısacası ıstedıgım hucrelerı formullerı nasıl kopyalayacagımı cozemedım yardım edersenız sevınırım sımdıden tesekkurler