![]() |
| ![]() |
|
DUYURU SİSTEMİ / REKLAM PANOSU |
Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
![]() |
![]() |
|
Paylaş | Konu Araçları | Görünüm Modları |
![]() |
#1 |
Giriş: 22/04/2010
Şehir: Eskişehir
Mesaj: 524
Excel Vers. ve Dili:
Excel 2007 TR |
![]() Merhaba;
Ekte örneğini vermiş olduğum dosyada B sütununda ANA HESAP yazan yerler var. Burada ANA HESAP yazan hücrenin üstündeki hücrenin ilk 3 rakamını alacak ANA HESAP yazan hücrenin soluna yazacak. Bunu kod veya formül ile yapabiliriyim? Teşekkürler. http://s3.dosya.tc/server13/bq9sng/ANA_HESAP.xlsx.html |
![]() |
![]() |
![]() |
#2 |
Altın Üye
Giriş: 06/03/2005
Şehir: KDZ.EREĞLİ
Mesaj: 1,724
Excel Vers. ve Dili:
Excel Vers. ve Dili: Office 2016 TR 64 Bit |
![]() A3 hücresine kopyalayıp aşağı çekerek çoğaltınız.Kolay gelsin.
Bu mesaj en son " 14-12-2017 " tarihinde saat 10:33 itibariyle çıtır tarafından düzenlenmiştir.... |
![]() |
![]() |
![]() |
#3 |
Giriş: 22/04/2010
Şehir: Eskişehir
Mesaj: 524
Excel Vers. ve Dili:
Excel 2007 TR |
![]() |
![]() |
![]() |
![]() |
#4 |
Altın Üye
Giriş: 06/03/2005
Şehir: KDZ.EREĞLİ
Mesaj: 1,724
Excel Vers. ve Dili:
Excel Vers. ve Dili: Office 2016 TR 64 Bit |
![]() Rica ederim .Dönüş yaptığınız için teşekkür ederim.Sayfanın kod bölümüne kopyalarsanız aşağıdaki kodda işinizi görür.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B1:B10000]) Is Nothing Then Exit Sub On Error GoTo çıkış If Target.Value = "ANA HESAP" Then Target.Offset(0, -1) = Left(Target.Offset(-1, 0), 3) Target.Offset(0, -1).Font.Name = "Comic Sans MS" Target.Offset(0, -1).Font.Size = 10 Target.Offset(0, -1).Font.Bold = True Target.Offset(0, -1).Font.Italic = True Target.Offset(0, -1).HorizontalAlignment = xlCenter Target.Offset(0, -1).VerticalAlignment = xlCenter Target.Offset(0, -1).Font.ColorIndex = 55 Target.Offset(0, -1).Interior.ColorIndex = 6 Target.Offset(0, -1).Borders(xlEdgeLeft).Weight = xlMedium Target.Offset(0, -1).Borders(xlEdgeTop).Weight = xlMedium Target.Offset(0, -1).Borders(xlEdgeBottom).Weight = xlMedium Target.Offset(0, -1).Borders(xlEdgeRight).Weight = xlMedium Else Target.Offset(0, -1) = "" Target.Offset(0, -1).Interior.ColorIndex = xlNone Target.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone Target.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone Target.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone Target.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone End If çıkış: End Sub |
![]() |
![]() |