दिलों वाली दिल्ली इस बार दिमाग से..

दिल्ली यूं ही देश की राजधानी नहीं है,

निराली यूं ही दिल्ली की कहानी नहीं है।

बात करते हैं दिल्ली विधानसभा के चुनाव परिणाम की। बहुत हंगामा , चुनाव रैली और नाटकबाजी के बाद चुनाव सम्पन्न हुआ और परिणाम आप सब के सामने है। आपने क्या देखा क्या महसूस किया। क्या आपने महसूस किया कि असली चुनाव यही था, क्या आपने महसूस किया कि जनता कितनी जागरूकता के साथ सभी चीजों को समझ रही है, क्या आपने देखा कि कर्म का प्रभाव और फल कैसा होता है। वास्तव में यह कर्म का फल ही तो है जो राजनीति आजतक धर्म जाति के आधार पर लड़ी जाती रही वो इस बार काम की तरफ फिसल गई। मैं हमेशा से कहता आया हूं इस देश में हरेक राज्य की सरकार को सबसे पहले शिक्षा पर काम करना चहिए, इस देश में शिक्षा इतना अधिक होने के बावजूद बहुत शिक्षा पर काम करने की बहुत जरूरत है। सोचिए दिल्ली जैसे राज्य की हालत ऐसी थी तो बाकी पूर्ण राज्यो की स्थिति कितनी बदतर होंगी। दूसरा स्वास्थ्य , स्वास्थ्य और शिक्षा दोनों बिल्कुल बेसिक जरुरत है लोगों की और सबसे बड़ी जिम्मेदारी है सरकार की, दोनों मनुष्य के दो पैर की तरह है एक भी खराब हुआ तो मनुष्य अपंग हो जाता है। दिल्ली में इन दो चीजों पर विशेष ध्यान दिया गया इसके अलावा बहुत सारी चीजों पर सरकार ने खूब ध्यान दिया। ये सारी चीजें आम आदमी के जिंदगी को सीधा-सीधा प्रभावित किया और यही बातें केजरीवाल के लिए काम कर गया। चुंकि भारत में अधिकांश लोगों को अर्थ जगत की तमाम बड़े बड़े शब्दों जैसे जीडीपी, इनफ्लेशन आदी की ज्यादा न तो समझ है न ही कोई कैलकुलेशन है इसलिए यहां आम आदमी को प्रभावित करने वाला काम होना चाहिए। जब तक आम आदमी अपनी छोटी मोटी समस्याओं से मुक्त नहीं होगा खुश नहीं रह पाएगा। जैसे गुजरात के मोडल को विकास का मोडल माना जाता है वैसे ही केजरीवाल के मोडल को नया पोलिटिकल मोडल माना जाना चाहिए। हालांकि लोग भी अपनी समझदारी का भरपूर उपयोग करते हुए काम के पक्ष में वोट किया और होना भी यही चाहिए कब तक हम ध्रुवीकरण पर वोट देंगे, कब तक हम जाती वाद को गले लगा कर रखेंगे, इस सब बकवास की चिजो से उपर उठकर सोचने की जरूरत है, खुशी की बात है जनता जागरूक हो रही है, काश बाकी राज्यों की जनता भी इस सब घटनाओं से सीख लें और अपने राज्य तथा देश के असली विकास में अपना अप्रत्यक्ष योगदान करें। एक बात और हम जगह जगह और समय समय पर यह सुनते रहते हैं कि राजनीति में बाहुबली, चोर उचक्के ही आते हैं और वहीं लोग टिक सकते हैं मगर ऐसा नहीं है वास्तव में हम जनता किसी शिक्षित और सभ्य राजनीतिक लोगों को समर्थन ही नही करते, हम बहक जाते हैं जाती पर, धर्म पर और गलत बटन दबा कर चले आते हैं ऐसा नहीं होना चाहिए। हमें शिक्षित लोगों का राजनीति में स्वागत और समर्थन करना चाहिए तभी हमारा समाज आगे बढ़ेगा, हम बढ़ेंगे और हमारा देश भी आगे बढ़ेगा।

Delhi -70(दिल्ली -70 )

दिल्ली भारत की राजधानी, दिल्ली केंद्रशासित प्रदेश और दिल्ली केजरीवाल की मुख्य कर्मभूमि और दिल्ली एक ऐसा प्रदेश जिसके लिए केंद्रशासित भाजपा पुरे जोर शोर से पीछे पड़ी है. 

5 साल ख़तम होने को है और फिर एक बार चुनावी बिगुल फूका जा चूका है. 8 तारीख फरबरी की वो दिन होगी जिस दिन पुरे दिल्ली में 70  विधान सभा सीट क लिए चुनाव होगा. और 11  तारीख को गिनती होगी और नेताओं के भाग्य का फैसला अगले 5 साल के लिए हो जायेगा। पिछली बार धमाकेदार 67 सीट लेने वाली केजरीवाल की टीम इस बार कितना स्कोर कर पायेगी यही देखना दिलचस्प होगा।  

सबसे बड़ी बात ये है की कौन होगा अगला मुख्यमंत्री दिल्ली का।  एक तरफ केजरीवाल की हुंकार जो काम के बदौलत है और दूसरी तरफ भाजपा जिसका अभी उम्मीदवार भी तैय नहीं है की कौन मुख्यमंत्री की सीट पर ( अगर संयोग से जीत गए ) बैठेगा।  ऐसे में दिल्ली की जनता को इस बात का पता लगाना होगा की किसको वोट देना सही होगा।  हलाकि आप जानते है हमारे देश की जनता बहुत भोली है किसी को दिल दे बैठती है।  नेता थोड़े से इमोशनल क्या होते है लोग उन्हें सर पर बैठा लेते हैं और सर पे बैठने के बाद क्या करते है वो सबको मालूम ही हो जाता है। 

एक बात बहुत सटीक है इस बार का दिल्ली का चुनाव केजरीवाल के लिए बहुत आसान होने वाला है।  केजरीवाल उस विद्यार्थी की तरह हैं जो पुरे साल अनुशाषित रूप से पढाई किया हो और परीक्षा से ज्यादा डर नहीं रहा हो।  जिसे उम्मीद है की इतना नंबर तो आ ही जायेगा।  केजरीवाल भी इतना उम्मीद तो लगाए ही होगें. 
केजरीवाल एक ऐसे नेता हैं जो खुल्ला बोलते हैं अगर काम किया तो वोट देना नहीं तो वोट नहीं देना।  


जनता को जब तक उनके मुलभुत सुविधाओं का लाभ नहीं मिलता, तब तक वे खुश नहीं होते।  आम जनता को देश की जीडीपी से कम ही फर्क पड़ता है और असलियत न के बराबर समझ अता है अतः इस स्थिति में जहाँ बिजली , पानी और स्वस्थ्य जैसे मुलभुत सुविधाएं लोगो को मिल रहे हो तो जनता क्यों न खुश हो।  
मोहल्ला क्लिनिक जैसे इनोवेशन दिल्ली में स्वास्थ्य सुविधाओं को मजबूत किया है।  स्कूल की व्यवस्था में सुधार इस बात का संकेत देती है की सरकार को इस बात की भी चिंता है की बच्चो को शिक्षित कैसे करना है और शिक्षित बच्चा ही देश का भविष्य है।  

काश केंद्र सरकार ने भी इसपे बल दिया होता।  बाकि के राज्यों में आप जा कर देखिये सरकारी स्कूलों की क्या हालत है , दयनीय ही कहेगे आप अगर सचाई से रूबरू होगें।  

दिल्ली की जो व्यवस्था में सुधार हुआ है मेरी समझ से एक उदाहरण है बाकि के पूर्ण राज्य का दर्जा लिए राज्यों के लिए।  
बाकि दिल्ली की जनता को देखना होगा किसको अपना दिल देती हैं।  
नेता कोई ईमानदार नहीं हो सकता , आप नेता को छोड़िये आम जनता खुद ईमानदार नहीं है।  सब के सब बेईमान हैं लेकिन ऐसे समय में जो कम बेईमान है वही बेहतर है। 

अतः बेहतर का चुनाव कीजिये और अपना वोट अपने लिए दीजिये, अपने और अपने लोगो के भविष्य के लिए दीजिये, इन नेताओं के लिए नहीं। 

Convert row data in desired format as per below image

Project: We have to convert data as per Image1 into the data as per Image 2:

Image 1

Image 2

VBA Code for this is below:

Sub formattingdata()

'first we have to custom sort the data 

  With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B15")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With

'Now for loop for finding the quarter for particular date

Dim i As Integer
Dim count As Integer
count = Range("A1", Range("A2").End(xlDown)).count

For i = 2 To count
Select Case Format(Cells(i, 1), "m")
    Case 1 To 3
Cells(i, 1).Offset(0, 2).Value = Right(Cells(i, 1), 4) & " " & "Q1"

Case 4 To 6
Cells(i, 1).Offset(0, 2).Value = Right(Cells(i, 1), 4) & " " & "Q2"
Case 7 To 9
Cells(i, 1).Offset(0, 2).Value = Right(Cells(i, 1), 4) & " " & "Q3"
Case Else
Cells(i, 1).Offset(0, 2).Value = Right(Cells(i, 1), 4) & " " & "Q4"

End Select

Next i

'again sort the data according to the quarter year

With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:C15")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With


For i = 2 To count
If Cells(i, 3) = Cells(i + 1, 3) Then

Cells(i, 3).Clear
End If
Next i


End Sub

Finding the smallest number in a row

Finding smallest number from a list in a row:

From the above screenshot we have to find the smallest number:
Below is the VBA Code for this task:

Sub smallest()

Dim x As Integer
Dim i As Integer
Dim count As Integer
Dim y As Integer

count = Range("B1", Range("B1").End(xlDown)).count
x = 0

For i = 2 To count

    If Cells(i, 2).Value > x Then
    
    x = Cells(i, 2).Value
    
    End If
    
Next i

y = x

For i = 2 To count
 If y > Cells(i, 2) Then
  y = Cells(i, 2).Value
 End If
Next i

MsgBox "smallest number is" & " " & y

End Sub

Lookup Result in a click button

Project - Here we have a data and we have to find the total sells for particular name taken in column E(below the yellow cell). For Example if someone wants to see the total sell for ram then after clicking on xlookup, total sell for ram will be displayed right besides that cell in column F

Screenshot :

Below are Codes:

Sub findingsales()

Dim i As Integer
Dim count As Integer
Dim x As Integer

'Suppose data is on Sheet1 then we need to go on sheet1 in vba we call it activating sheet1
'hence in the code we write activate

ThisWorkbook.Sheets("Sheet1").Activate

'to count the dynamic number in the row in column A

count = Range("A1", Range("A2").End(xlDown)).count

'we use for loop to travell through all cells in the first row.
' we will strat our loop thourgh i =2 as the data of our meaning starting_
'from row 2 and column 1

For i = 2 To count
    If Cells(3, 5).Value = Cells(i, 1).Value Then
    
        x = x + Cells(i, 1).Offset(0, 2).Value
    End If
    
Next i

Cells(3, 6).Value = x

End Sub

VBA Code to find greatest number in a row.

Above are the numbers in a row. We have to find the greatest number in this row. Below are code:
Just copy and paste this below code and you will find the greatest number in that row.


Sub greatestnumber()

Dim i As Integer
Dim x As Integer

x = 0
Dim count As Integer

count = Range("A1", Range("A1").End(xlDown)).count

For i = 1 To count

If Cells(i, 1) > x Then

x = Cells(i, 1).Value
End If

Next i

MsgBox "the greatest number in the row is" & " " & x

End Sub

Team India situation

Team Indian position is all okey to say that in one dayers it is on top position and in test it is at 2nd position. Managing the series with SA Indian team also managed with the rank in ICC world ranking. Team member have to pur all their 100% effort to do well in the future as number of important series and tournament is comming. Bowling has been a great concern for team India although some bowlers are doing really well however some are at mediocre situation. They all need to gear up to fight with the fully prepared exotic players. Gautam.